[编程交流] 引导和文本帮助！李·麦克&#

(defun c:dip (/ p x y ptcoord textloc txtdp textlabel)
(setq p (getpoint "
Pick Point: "))
(setq textloc (getpoint "
Pick Label Location: "))
 (setq txtdp (getstring "
Enter Dip: "))  
(setq textlabel (strcat txtdp "°"))
 
(setq x (rtos (car p)))
(setq y (rtos (cadr p)))
(setq z (rtos (caddr p)))
;(setq ptcoord (strcat x ", " yy ", " z))
 
(command "_LEADER" p textloc "" "" "None" "")
(command "_TEXT" "_Justify" "_Middle" p"0.6" "90" textlabel)
)

(defun c:dip (/ e a b d)
 (if (and (setq e (entlast)
                a (getpoint "\nSpecify First Point for Leader :"))
          (setq b (getpoint "\nNext point of Leader :" a))
          (setq d (getstring "\nEnter Dip :"))
          )
   (progn
     (command "_LEADER" "_non" a "_non" b "" "" "None" "")
     (if (and (/= e (setq e (entlast)))
              (eq (cdr (assoc 0 (entget e))) "LEADER")
              )
     (command "_TEXT" "_Justify" "_Middle" "_non" (polar a (angle b a) 0.5) "0.6" "90" (strcat d "°"))
       )
     )
   )
 (princ)
 )