你好亲爱的朋友。
我从Marko的CADTutor中找到了这段代码。
我希望有人能帮我添加这个坐标维度的反应堆。
拖动箭头。坐标数据自动更新。
谢谢你的帮助。
- (defun c:lb ( / p x y str )
- (if (not (tblsearch "LAYER" "dim"))
- (entmake '((0 . "LAYER") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "dim") (70 . 0) (62 . 3) (6 . "Continuous")))
- (prompt "\nLayer : "dim" already exist - setting it to current and proceeding with routine...")
- )
- (setvar 'clayer "dim")
- (while (setq p (getpoint "\nPick Point - ENTER to finish: "))
- (setq x (strcat "X = " (if (minusp (car p)) "" "+" ) (rtos (car p) 2 2)))
- (setq y (strcat "Y = " (if (minusp (cadr p)) "" "+" ) (rtos (cadr p) 2 2)))
- (setq str (strcat x "\n" y))
- ;(setq z (strcat "Z = "(if (minusp (caddr p)) "" "+" ) (rtos (caddr p) 2 2)))
- ;(setq str (strcat x "\n" y "\n" z))
- (command "_LEADER" p pause "" str "")
- )
- (princ)
- )
| 
置顶卡
