[编程交流] 指定线型的路径

(DEFUN C:fen (/ CONVERT KLIM OLD_CLT S1 S2 SCL SS)
 (setq old_clt (getvar 'CELTYPE))
 (if (and (not (tblsearch "ltype" "fen"))
   (findfile "C:\\topocad\\topo.lin")
     )
   (command "-linetype" "l" "fen" "C:\\topocad\\topo.lin" "")
 )
 (if (tblsearch "ltype" "fen")
   (progn
     (setq ss (ssadd))
     (COMMAND "_layer" "_m" "fen" "_c" "140" "fen" "_lt" "fen" "fen" "")
     (SETQ SCL (GETVAR "useri1"))
     (SETQ KLIM (* 0.005 SCL))
     (COMMAND "_linetype" "_s" "fen" "")
     (SETQ S1 (GETPOINT "\nSpecify the first point :"))
     (WHILE (SETQ S2 (GETPOINT S1 "\nSpecify the second point:"))
(COMMAND "_line" "non" S1 "non" S2 "")
(COMMAND "_CHPROP" (ENTLAST) "" "_S" KLIM "")
(ssadd (ENTLAST) ss)
(SETQ S1 S2)
     )
     (setvar 'CELTYPE old_clt)
     (initget "Yes No")
     (if (and (setq
  convert (cond
     ((getkword "\nConvert to polylines? [Yes/No] <Y>: "))
     ("Yes")
   )
       )
       (/= (sslength ss) 0)
       (= convert "Yes")
  )
(if (= (getvar 'PEDITACCEPT) 0)
  (command "_.pedit" "_M" ss "" "_Y" "_J" "" "")
  (command "_.pedit" "_M" ss "" "_J" "" "")
)
     )
   )
 )
 (princ)
)