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

(DEFUN
  C:fen (/ A1 KLIM PER S1 S2 SCL)
 (COMMAND "_layer" "_m" "fen" "_c" "140" "" "_LT" "" "C:\\topocad\\topo.lin\\fen" "")
 (SETQ SCL (GETVAR "useri1"))
 (SETQ KLIM (* 0.005 SCL))
 (SETQ PER "Fen")
 (COMMAND "_linetype" "_s" "C:\\topocad\\topo.lin\\fen" "")
 (PRINT "")
 (SETQ S1 (GETPOINT "give the first point :"))
 (PRINT "")
 (WHILE (SETQ S2 (GETPOINT S1 " give the second point:"))
   (PRINT "")
   (COMMAND "_line" "non" S1 "non" S2 "")
   (COMMAND "_CHPROP" (ENTLAST) "" "_S" KLIM "")
   (SETQ S1 S2)
 )
)

(COMMAND "_linetype" [color=red]"_L"[/color] [color=red]"NameOfYourLIneType"[/color] "C:\\topocad\\topo.lin\\fen[color=red].lin[/color]" "")

(DEFUN C:fen ( / A1 KLIM S1 S2 SCL )
 (COMMAND "_.-linetype" "_L" "fen" "C:\\topocad\\topo.lin")
 (COMMAND "_.-layer" "_m" "fen" "_c" "140" "" "_LT" "fen" "" "")
 (SETQ SCL (GETVAR "useri1"))
 (SETQ KLIM (* 0.005 SCL))
 (PRINT "")
 (SETQ S1 (GETPOINT "give the first point :"))
 (PRINT "")
 (WHILE (SETQ S2 (GETPOINT S1 " give the second point:"))
   (PRINT "")
   (COMMAND "_.line" "non" S1 "non" S2 "")
   (COMMAND "_.change" (entlast) "" "_P" "_LT" "fen" "_S" KLIM "")
   (SETQ S1 S2)
 )
 (PRINC)
)

(DEFUN C:fen (/ A1 KLIM OLD_CLT PER S1 S2 SCL)
 (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
     (COMMAND "_layer" "_m" "fen" "_c" "140" "fen" "_lt" "fen" "fen" "")
     (SETQ SCL (GETVAR "useri1"))
     (SETQ KLIM (* 0.005 SCL))
     ;; (SETQ PER "Fen") ?????
     (COMMAND "_linetype" "_s" "fen" "")
     ;;(PRINT "")
     (SETQ S1 (GETPOINT "\nSpecify the first point :"))
     ;;(PRINT "")
     (WHILE (SETQ S2 (GETPOINT S1 "\nSpecify the second point:"))
;;(PRINT "")
(COMMAND "_line" "non" S1 "non" S2 "")
(COMMAND "_CHPROP" (ENTLAST) "" "_S" KLIM "")
(SETQ S1 S2)
     )
     (setvar 'CELTYPE old_clt)
   )
 )
 (princ)
)

(DEFUN C:fen (/ A1 KLIM OLD_CLT PER S1 S2 SCL)
 (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
     (COMMAND "_layer" "_m" "fen" "_c" "140" "fen" "_lt" "fen" "fen" "")
     (SETQ SCL (GETVAR "useri1"))
     (SETQ KLIM (* 0.005 SCL))
     ;; (SETQ PER "Fen") ?????
     (COMMAND "_linetype" "_s" "fen" "")
     ;;(PRINT "")
     (SETQ S1 (GETPOINT "\nSpecify the first point :"))
     ;;(PRINT "")
     (WHILE (SETQ S2 (GETPOINT S1 "\nSpecify the second point:"))
;;(PRINT "")
(COMMAND "_line" "non" S1 "non" S2 "")
(COMMAND "_CHPROP" (ENTLAST) "" "_S" KLIM "")
(SETQ S1 S2)
     )
     (setvar 'CELTYPE old_clt)
   )
 )
 (princ)
)

(initget "Yes No")
  (setq convert (cond ( (getkword "\nConvert to polylines? [Yes/No] <Y>: ") ) ( "Yes" )))
         (if ( "Yes" convert)
             (command "_.pedit" "_M"   "" "_J" "" ""))
         )

(COMMAND "_[color=magenta]P[/color]line" "non" S1 "non" S2 "")