-
(defun c:u1 ()
(princ
设置角度
(setq p1 (getpoint
起点
:
(setq p2 (getpoint
终点
:
(command
)
(defun c:u2 ()
(command
)
(defun c:u3 ()
(princ
设置角度
(setq p1 (getpoint
起点
:
(setq p2 (getpoint
终点
:
(command
(defun c:us () (command
(defun c:zd () (command
(defun c:hz ()
(princ)
(command
WORDER
)
(defun c:ep()
(command
)
(defun c:as ()
(setq p1 (getpoint
起点
:
(setq p2 (getpoint p1
下一点
:
(command
)
(defun C:Pu (/ gnList doc
groups g)
(princ
此程序搜
索不包含任何物体的空组并清除之
n
)
(princ)
(setq doc (vla-get-activedocument
(vlax-get-acad-object)))
(setq groups (vla-get-groups doc))
(vlax-for g
groups
(princ
分析组：
(princ (vla-
get-name g))
(if
(= (vla-get-
count g) 2)
(progn
(princ
(strcat
删除空组
(vla-delete g)
)
)
)
(command
)
(defun c:sd (/
a b ent ent2 elist etype
pt
oltxt)
oldval
bltxt entdata btxt ostr
(princ
文字替换程序
*******
Writen by
赵
(princ
请选择复制源文字目标
:
(setq ent
(nentsel))
(if
(= ent nil)
(setq oldval
(getstring
请输入文字
:
(progn
(setq
)
(setq oldval (cdr (assoc 1
elist)))
ent2
ent
elist (entget (car ent))
etype (cdr (assoc 0 elist))
(princ
(princ
复制文字内容为
:
(princ oldval)
)
)
(setq q 9)
(while q
(princ
(setq bltxt (nentsel
请选择需要替换的文字目标
:
(if
(= bltxt nil)
(setq q nil)
(progn
(command
)
(progn
(setq pt (cadr bltxt))
(setq
entdata (entget (car bltxt))
btxt
(cdr (assoc 1
entdata))
ostr
btxt
)
(setq elist (entget (car bltxt)))
(setq etype (cdr (assoc 0 elist)))
;; (setq oltxt (car (assoc 1 elist)))
(setq oltxt (cdr (assoc 1
elist)))
(if (= etype
TTRIB
(if
(setq bltxt (car (reverse (cadddr
bltxt))))
(entupd bltxt)
)
)
(progn
(setq btxt
oldval)
(entmod (subst (cons 1
btxt) (assoc 1 entdata) entdata))
)
)
)
(princ
原文字为
:
(princ oltxt)
(princ
已被替换为
:
(princ oldval)
(princ
)
(princ)
)
;(defun c:ef (/ p1 p2 )
;
(princ
画钢筋
;
(setq p1 (getpoint
起点
:
;
(setq p2 (getpoint p1
下一点
:
;
(setq clayer (getvar
clayer
;
(command
;
(command
p1
;
PAUSE)
;
(setvar
clayer
; (princ)
;)
;(defun c:pu ()
;
(princ)
-
-
-
-
-
-
-
-
-
上一篇：王维《九月九日忆山东兄弟》英文翻译
下一篇：CHIP技术