(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? <Y>: "))
("Yes")
)
)
(/= (sslength ss) 0)
(= convert "Yes")
)
(if (= (getvar 'PEDITACCEPT) 0)
(command "_.pedit" "_M" ss "" "_Y" "_J" "" "")
(command "_.pedit" "_M" ss "" "_J" "" "")
)
)
)
)
(princ)
)
HTH公司
亨里克 对谢谢你hmsilva 不客气prodromosm
亨里克
页:
1
[2]