- (defun c:bg()
- (setq p0 (getpoint "\n标高插入点:"))
- (setq th "标高")
- (setq p1 (list (+ (car p0) 80) (+ (cadr p0) 80)))
- (setq p2 (list (- (car p1) 160) (cadr p1)))
- (setq p3 (list (- (car p1) 500) (cadr p1)))
- (command "pline" p2 "w" 0 0 p0 p1 p3 "")
- (command "text" "bc" p3 100 0 th) ;不能正常运行 ,得不到标高这两个字
- )
..出现不是我想要的图形...
check osmode .... |