(defun c:tt (/ ie-obj)  (setq ie-obj (vlax-get-or-create-object "Msxml2.xmlhttp"))  (vlax-invoke-method ie-obj 'open  "get" "https://www.hao123.com/" 0)    (vlax-invoke-method ie-obj 'set

;选择文字修改字体(defun c:chtxsy ( / a ns n index b1 e f b2)        (setq a (ssget'((0 . "TEXT"))))     

修改高程值文字大小lisp源码来源于网络，作者不可查，如果涉及侵权请邮件联系我。;;;本程序实现批量修改高程值文字大小,仅针对cass7.0展高程点值文字大小修改(defun c:xggcdzg ( )  (setvar "errno" 0)  (setq olderr *error*)  (defun *error* (msg)    (princ "\n已取消修改!")    (se

;2012.5.21 by清清绿茶;删除重叠图元(如有多个图元重叠在同一位置，只保留其中一个，删除其他重叠图元);只删除完全重合并且为同类型同属性图元;函数使用方法:(killent ss)  其中ss为选择集(defun killent (ss / ent data ss_len list1 jubing)  (repeat (setq ss_len (sslength ss))    (if (and (setq ent (ssname ss (set