cad批量逐个填充lisp |
您所在的位置:网站首页 › 金吉拉猫属于哪种品种 › cad批量逐个填充lisp |
本帖最后由 alexmai 于 2019-3-22 00:35 编辑 -------------------------------------------------------------------------------------------- 明经找到这个资料,但都不是我想要的,我想设置“点选”为第一步,而不是“选择”为第一步 (defun C:kh (/ s1) ;快速选择对象,填充图案 (setvar "cmdecho" 0) (setvar "hpassoc" 1) ;控制填充图案是否关联(1:是;0:否) (princ "\n快捷填充,请选择填充区域:(***跳过则为拾取内部点填充)") (if (setq s1 (ssget)) (command "bhatch" "s" s1 "" "") (progn (princ "\n请拾取填充内部点:") (command "bhatch" pause) );progn );if (princ) );defun (defun C:H1 (/ s1 s2) (setvar "cmdecho" 0) (setvar "OSMODE" 0) (setvar "MEASUREINIT" 1) (setvar "MEASUREMENT" 1) (setvar "hpassoc" 1) ;控制填充图案是否关联 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |