我有2个lisp例程帮助绘制方向线和标签，但我必须单独执行2个命令，所以我正在寻找人帮助我将它们结合在一起。
命令1是绘制方位。。。
- ;Tip1741: BD.LSP Bearing/Distance lines (c)2001, Joon Hong $50 Bonus Winner
- (defun C:BD ()
- (setvar "cmdecho" 0)
- (initget 1)
- (setq PT (getpoint "\nPick a starting point: "))
- (initget 1 "NE NW SE SW")
- (setq BR (getkword "\nPick bearing (NE/NW/SE/SW): "))
- (setq OPT (strcase BR))
- (initget 1)
- (setq LEN (getreal "\nType the length: "))
- (setq DEG (getstring "\nType the degree: ")
- minx (getstring "\nType the minute: ")
- SEC (getstring "\nType the second: "))
- (if (= DEG "")
- (setq DEG "0"))
- (if (= minx "")
- (setq minx "0"))
- (if (= SEC "")
- (setq SEC "0"))
- (cond ((= "SW" OPT)
- (setvar "angbase" (cvunit 270 "degree" "radian"))
- (setvar "angdir" 1))
- ((= "SE" OPT)
- (setvar "angbase" (cvunit 270 "degree" "radian"))
- (setvar "angdir" 0))
- ((= "NW" OPT)
- (setvar "angbase" (cvunit 90 "degree" "radian"))
- (setvar "angdir" 0))
- ((= "NE" OPT)
- (setvar "angbase" (cvunit 90 "degree" "radian"))
- (setvar "angdir" 1)))
- (command "line" PT (strcat "@" (rtos LEN) "<" DEG "d" minx "'" SEC """) "")
- (setvar "angbase" 0)
- (setvar "angdir" 0)
- (setvar "cmdecho" 1)
- (princ))
- (princ "\nType 'BD' to draw lines with bearings")
- (princ)
| 
置顶卡
