急求:把图上的高程加或减一个常数

梁旭武

只能在南方CASS里用且高程只保留一位而已

<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)
(setq  ss(ssget (list (cons 100  r) (cons 8 b ))))
(setq a(getreal"\n输入高程增加的常数"))
(repeat (sslength ss)

(setq  ss1(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 yy  1 (- (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

dwjb

任选一高程 :; 错误: no function definition: JCHF