<XMP>(defun c:ggc()
(princ"\n批量改高程比例尺是1：1000")
(command "osnap" "non")
(command "layer" "set" "gcd" "")
(setq r "AcDbText" b "gcd" j "TEXT") (setq i 0) (setq da 10.0)
(setqss(ssget (list (cons 100r) (cons 8 b ))))
(setq a(getreal"\n输入高程增加的常数"))
(repeat (sslength ss)
(setqss1(ssname ss i))
(setq ent(entget ss1))
(if(= (cdr(assoc 0 ent)) j)
(command "ERASE" ss1 "")
(progn
(setq b(cdr(assoc 10 ent)))
(setq z(caddr b))
(setq z(+ a z))
(setq x(car b))
(setq y(cadr b))
(setq x1(+ x 1.33))
(setq y1(- y 1))
(setq xy(list x1 y1))
(setq yy(/(fix(+(* z da) 0.5)) da))
(setq yy(rtos yy))
(setq yy(substr yy1 (- (strlen yy) 3)))
(command "text" xy 1.9998 0 yy)
(setq en(list x y z))
(setq ent
(subst (cons 10 en) (assoc 10 ent) ent)
)
(entmod ent)
)
)
(setq i(1+ i))
)
(command "layer" "set" "0" "")
)</XMP><XMP> ; 错误: 参数类型错误: lselsetp nil 任选一高程 :; 错误: no function definition: JCHF
页:
1
[2]