sayhi_sanjay1 发表于 2022-7-6 07:43:47

帮助准备lisp程序

我正在努力准备我指挥生涯中的第一个lisp，并画出我这样写的4“无壁厚等径三通
 

(defun c:DET4()(asave)(command "PLINE" PAUSE "@114.30<270" "@210<0" "@114.30<90" "@47.85<180" "@47.85<90" "@114.30<180" "@47.85<270" "C"))

MSasu 发表于 2022-7-6 07:53:40

谢谢Mircea，两种选择都有效。
 
制造单线/双线管（无壁厚）、单线/双线弯头（90°LR、90°SR、45°LR）（带中心线）、单线/双线三通/异径三通（带中心线）的任何指导线，异径管（同心、偏心[平面朝上或平面朝下）（带中心线）、对焊法兰、承插焊法兰、盲法兰（Ansi B16.5和B16.47A、B）（75#、125#、150#、300#、400#、600#、900#1500#、2500#）、大小阀门和所有额定值（闸阀、球阀、球阀、旋塞阀、蝶阀、横隔梁）、钢截面平面图和立面图、土木工程2d门窗和电气符号。

MSasu 发表于 2022-7-6 07:54:53

 
如果我想添加比..更多的行和一个lisp。。？
 
这样地
(defun c:ET4( / oldOsMode )
(setq oldOsMode (getvar "OSMODE"))
(setvar "OSMODE" 0)
(asave)
(command "PLINE" PAUSE "@114.30<270" "@210<0" "@114.30<90" "@47.85<180" "@47.85<90" "@114.30<180" "@47.85<270" "C")
(setvar "OSMODE" oldOsMode)
)
 
如果需要任何修改，请检查并致电mee

sayhi_sanjay1 发表于 2022-7-6 08:02:54

很高兴我能帮助你。不客气！
 
此外，感谢您修复您的帖子。

sayhi_sanjay1 发表于 2022-7-6 08:09:41

你能帮我查一下管道线路lisp吗

MSasu 发表于 2022-7-6 08:12:05

(defun c:ET4( / oldOsMode pointTemp DtoR )
(defun DtoR( angle / ) (* (/ angle 180.0) pi))

(setq oldOsMode (getvar "OSMODE"))
(setvar "OSMODE" 0)

;(asave)

(setq pointTemp (getpoint "Start point: "))
(command "PLINE" pointTemp
               (setq pointTemp (polar pointTemp (DtoR 270) 114.30))
               (setq pointTemp (polar pointTemp (DtoR   0) 210.00))
               (setq pointTemp (polar pointTemp (DtoR90) 114.30))
               (setq pointTemp (polar pointTemp (DtoR 180)47.85))
               (setq pointTemp (polar pointTemp (DtoR90)47.85))
               (setq pointTemp (polar pointTemp (DtoR 180) 114.30))
               (setq pointTemp (polar pointTemp (DtoR 270)47.85))
               "C")

(setvar "OSMODE" oldOsMode)
)
 
任何评论，我试图与mline，但如果你有一些比这更容易的事情，请告诉我。

MSasu 发表于 2022-7-6 08:20:45

sayhi_sanjay1 发表于 2022-7-6 08:22:34

Thanks alot i have tried and complete for all and its work perfact.
 
Thanks once again

sayhi_sanjay1 发表于 2022-7-6 08:31:58

To draw pipe in double line i have wrote like this
 

(defun c:DPH()(asave)(command "-layer" "m" "center" "lt" "center" "" "c" "8" "" "m" "pipe" "lt" "continuous" "" "c" "4" "" "")(command "MLINE" "S" "21.34" PAUSE PAUSE "")(command "explode" "l")(command "offset" "10.67" pause pause "" )(command "change" "l" "" "p" "la" "center" "c" "bylayer" "lt" "bylayer" "" "")) (defun c:DP3F()(asave)(command "-layer" "m" "center" "lt" "center" "" "c" "8" "" "m" "pipe" "lt" "continuous" "" "c" "4" "" "")(command "MLINE" "S" "26.67" PAUSE PAUSE "")(command "explode" "l")(command "offset" "13.34" pause pause "" )(command "change" "l" "" "p" "la" "center" "c" "bylayer" "lt" "bylayer" "" ""))
 
check and tel mee if any modification is requred

MSasu 发表于 2022-7-6 08:34:10

Glad I could help you. You're entirely welcome!
 
Also, thank you for fixing your posts.
页: [1] 2
查看完整版本: 帮助准备lisp程序