谢谢
2010年06月 存档
请问怎样统计图中圆圈内8的个数？注意圆圈外可能也有8
2010年06月30日，星期三请各位高人帮助修改一下程序？
2010年06月30日，星期三这个程序给所选尺寸文字加上背景色，但在对象特性管理器的文字填充色却为“无”，只要移动尺寸，背景就没了。如何解决？另外这个程序一次只能选一个尺寸，我想一次多选几个，怎么修改？这个程序只在CAD2005下有效。
(defun c:DIM_MASK ()
(prompt “nApply Dimension Mask”)
(setq parent_en (entget (car (entsel))))
(setq mask_list (list (cons 90 3)(cons 63 256)(cons 45 1.2)(cons 441
1616860)))
(if (/= parent_en nil)
(progn
(setq en (tblobjname “block” (cdr (assoc 2 parent_en))))
(setq dim_sub_en en)
(while (/= en nil)
(if (= (cdr (assoc 0 (entget en))) “MTEXT”)
(progn
(setq EN_LIST (append (entget EN) mask_list))
(entmod EN_LIST)
)
)
(setq en (entnext en))
)
(command “.regen”)
)
)
(princ)
)
CAD里有没自动替换文字样式的办法？
2010年06月30日，星期三单位经常和外界交换图纸，他们的文字样式要么不合要求，要么没有字体。
每次都要一个一个的更改文字样式，非常麻烦。
请教一种办法可以自动批量更换文字样式的办法或工具，谢谢。。。
此语句(8 . "0")是什么意思？
2010年06月30日，星期三(sslength (ssget ‘((0 . “TEXT”)(8 . “0″)(62 . 1)(1 . “10″))))
请教透明命令、字体自动替换问题
2010年06月30日，星期三1、LISP程序中是否可以调用透明命令。
2、打开CAD文件时，当前路径下如无该文件所需的中文字体文件，CAD会要求指定替换的字体。当有多个字体需要替换时，将非常繁琐。是否可以设定一个中文字体进行自动替换。（系统变量FONTALT只能替换小字体（西文），大字体（Big Font，中文）无法替换。）
各位高手能帮忙解决吗？在这先谢了！
如何用lisp编写尺寸标注的程序？
2010年06月30日，星期三我的意思是：比如我编一个lisp程序，画某一个图形，如何自动给它进行标注，这一点我不懂，希望可以得到高手的指点！谢谢！！
关于Pline模拟Spline、ellipse
2010年06月30日，星期三对椭圆会有：
命令: (SPTOPL (CAR (ENTSEL)))
选择对象: 在只有一个顶点的二维多段线 (0) 上增加一个顶点。
((0 . “LWPOLYLINE”) (100 . “AcDbEntity”) (100 . “AcDbPolyline”) (90 . 1) (10
1025.87 1484.79))
我是个新手，能否详细解释此语句？
2010年06月30日，星期三(sslength (ssget ‘((0 . “TEXT”)(62 . 1)(1 . “10″))))
在程序运行过程中按下功能建
2010年06月30日，星期三用法：(sendkeys 字符串)
例如，(sendkeys “{F3}”) 相当于按下F3键
(sendkeys “{CAPSLOCK}”) 相当于按下大小写键
(sendkeys “^c”) 相当于按下CTRL+C键
(sendkeys “%F”) 相当于按下ALT+F键
….
PHP代码: [拷贝到剪切板
如何用LISP将圆转为PL线
2010年06月30日，星期三请问如何用LISP将圆转为PL线？如何用LISP把直线(LINE)转为PL线？
(defun linetopline ()
(setq ss (ssget))
(setq num (sslength) ee 0)
(while (< ee num)
(setq nam (ssname ss ee))
(setq ent (entget nam))
此处我想用subst和entmod来将line变为pline(圆变pline类同,用lisp,不用lisp)
(setq ee (1+ ee))
);end while
);end defun
