CAD二次开发.zip_CAD填充_cad_wagonj3n

(princ "\n图案填充批量转曲线命令:MYtest") (defun c:MYtest () (princ "\n模式一，输入参数，点选内部生成填充") (setq name (getstring"\n 填充图案名称:")) (setq n (getstring"\n 比例:")) (setq ang (getstring"\n 角度:")) (setq pt (getpoint"\n 选取内部点")) (command "bhatch" "p" name n ang pt "") ;(command "bhatch" "p" "" "" "" pt "") ；如果并不需要输入参数，将这句话前面的分号取消，将上一句前加分号或删除即可 ;(princ "\n模式二，框选对象") ; (prompt "\n框选对象") ; (setq pt (ssget)) ; (command "hatch" "s" pt "" "" "" "") (setvar "cmdecho" 0) (setq s (ssget "X" '((0 . "hatch")))) (setq n (sslength s)) (setq k 0) (while (< k n) (setq name (ssname s k)) (setq ent (entlast) tc (cdr (assoc 8 (entget name))));取得最后一个对象，取得图层 (command "-hatchedit" name "b" "p" "y") (setq k (+ k 1)) ) (command "erase" s "") (setvar "cmdecho" 1) )