请教版主，能否调整下面的LISP,把双线改为四线，其中中间两条线可以按参数输入离两

cxs259 · 发表于 2010-5-7 17:01:00

请教版主，能否调整下面的LISP,把双线改为四线，其中中间两条线可以按参数输入离两边线的距离？[br](defun c:2L()
(if (= wwdy nil) (setq wwdy 240))
(setq str1 (rtos wwdy 2 2))
(prompt "\n now dline width is: ")
(prompt str1)
(setq pt1 (getpoint "\n enter start point:"))
(setq pt2 (getpoint pt1 "\n enter next point:"))
(setq dis1 (* 0.5 wwdy))
(setq ag1 (angle pt1 pt2))
(setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
(setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
(setq pt1d (polar pt1 (- ag1 1.5708) dis1))
(setq pt2d (polar pt2 (- ag1 1.5708) dis1))
(command "pline" "non" pt1u "non" pt2u "")
(command "pline" "non" pt1d "non" pt2d "")
(repeat 100
(setq pt1 pt2)
(setq pt2 (getpoint pt1 "\n enter next point:"))
(setq dis1 (* 0.5 wwdy))
(setq ag1 (angle pt1 pt2))
(setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
(setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
(setq pt1d (polar pt1 (- ag1 1.5708) dis1))
(setq pt2d (polar pt2 (- ag1 1.5708) dis1))
(command "pline" "non" pt1u "non" pt2u "")
(command "pline" "non" pt1d "non" pt2d "")
)
)

bai0379 · 发表于 2019-2-26 01:56:43

四线的能不能改为大小头（两端尺寸不同而偏移一样）

gufeng · 发表于 2010-5-18 13:11:00

(defun c:2L()
(if (= wwdy nil) (setq wwdy 240))
(prompt "\n now dline width is: ")
(prompt str1)
(setq dis1 (* 0.5 wwdy))
(setq dis2 (getint (strcat "\n输入离两边线的距离,不能大于"
(rtos (* 0.5 wwdy) 2 0)
":<"
(rtos (* 0.5 wwdy) 2 0)
">"
)
)
)
(if dis2
(setq dis2 (- (* 0.5 wwdy) dis2))
(setq dis2 (* 0.25 wwdy))
)
(setq str1 (rtos wwdy 2 2))
(setq pt1 (getpoint "\n enter start point:"))
(setq pt2 (getpoint pt1 "\n enter next point:"))
(setq ag1 (angle pt1 pt2))
(setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
(setq pt11u (polar pt1 (+ ag1 1.5708) dis2))
(setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
(setq pt22u (polar pt2 (+ ag1 1.5708) dis2))
(setq pt1d (polar pt1 (- ag1 1.5708) dis1))
(setq pt11d (polar pt1 (- ag1 1.5708) dis2))
(setq pt2d (polar pt2 (- ag1 1.5708) dis1))
(setq pt22d (polar pt2 (- ag1 1.5708) dis2))
(command "pline" "non" pt1u "non" pt2u "")
(command "pline" "non" pt11u "non" pt22u "")
(command "pline" "non" pt1d "non" pt2d "")
(command "pline" "non" pt11d "non" pt22d "")
(repeat 100
(setq pt1 pt2)
(setq pt2 (getpoint pt1 "\n enter next point:"))
(setq dis1 (* 0.5 wwdy))
(setq ag1 (angle pt1 pt2))
(setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
(setq pt11u (polar pt1 (+ ag1 1.5708) dis2))
(setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
(setq pt22u (polar pt2 (+ ag1 1.5708) dis2))
(setq pt1d (polar pt1 (- ag1 1.5708) dis1))
(setq pt11d (polar pt1 (- ag1 1.5708) dis2))
(setq pt2d (polar pt2 (- ag1 1.5708) dis1))
(setq pt22d (polar pt2 (- ag1 1.5708) dis2))
(command "pline" "non" pt1u "non" pt2u "")
(command "pline" "non" pt11u "non" pt22u "")
(command "pline" "non" pt1d "non" pt2d "")
(command "pline" "non" pt11d "non" pt22d "")
)
)

(defun c:2L()
(if (= wwdy nil) (setq wwdy 240))
(prompt "\n  now dline width is: ")
(prompt str1)
(setq dis1 (* 0.5 wwdy))
(setq dis2 (getint (strcat "\n输入离两边线的距离,不能大于"
      (rtos (* 0.5 wwdy) 2 0)
      ":<"
      (rtos (* 0.5 wwdy) 2 0)
      ">"
     )
    )
)
(if dis2
    (setq dis2 (- (* 0.5 wwdy) dis2))
    (setq dis2 (* 0.25 wwdy))
)
(setq str1 (rtos wwdy 2 2))
(setq pt1 (getpoint "\n enter start point:"))
(setq pt2 (getpoint pt1 "\n enter next point:"))
(setq ag1 (angle pt1 pt2))
(setq pt1u  (polar pt1 (+ ag1 1.5708) dis1))
(setq pt11u (polar pt1 (+ ag1 1.5708) dis2))
(setq pt2u  (polar pt2 (+ ag1 1.5708) dis1))
(setq pt22u (polar pt2 (+ ag1 1.5708) dis2))
(setq pt1d  (polar pt1 (- ag1 1.5708) dis1))
(setq pt11d (polar pt1 (- ag1 1.5708) dis2))
(setq pt2d  (polar pt2 (- ag1 1.5708) dis1))
(setq pt22d (polar pt2 (- ag1 1.5708) dis2))
(command "pline" "non" pt1u "non" pt2u "")
(command "pline" "non" pt11u "non" pt22u "")
(command "pline" "non" pt1d "non" pt2d "")
(command "pline" "non" pt11d "non" pt22d "")
(repeat 100
   (setq pt1 pt2)
   (setq pt2 (getpoint pt1 "\n enter next point:"))
   (setq dis1 (* 0.5 wwdy))
   (setq ag1 (angle pt1 pt2))
   (setq pt1u  (polar pt1 (+ ag1 1.5708) dis1))
   (setq pt11u (polar pt1 (+ ag1 1.5708) dis2))
   (setq pt2u  (polar pt2 (+ ag1 1.5708) dis1))
   (setq pt22u (polar pt2 (+ ag1 1.5708) dis2))
   (setq pt1d  (polar pt1 (- ag1 1.5708) dis1))
   (setq pt11d (polar pt1 (- ag1 1.5708) dis2))
   (setq pt2d  (polar pt2 (- ag1 1.5708) dis1))
   (setq pt22d (polar pt2 (- ag1 1.5708) dis2))
   (command "pline" "non" pt1u "non" pt2u "")
   (command "pline" "non" pt11u "non" pt22u "")
   (command "pline" "non" pt1d "non" pt2d "")
   (command "pline" "non" pt11d "non" pt22d "")
)
)

cxs259 · 发表于 2010-5-18 16:46:00

感谢二楼相助！但程序出现now dline width is: ; 错误: 参数类型错误: stringp nil
，请给予调试。

gufeng · 发表于 2010-5-19 12:02:00

抱歉，那个没记得换过来了

你把2楼的第3行的

(prompt "\n now dline width is: ") 换成下面的就可以了

(prompt (strcat "\n now dline width is: " (rtos wwdy 2 2)))

cxs259 · 发表于 2010-5-19 12:13:00

你好！还是出现：now dline width is: 240.00; 错误: 参数类型错误: stringp nil

gufeng · 发表于 2010-5-19 12:22:00

不会啊我这可以正常运行的

gufeng · 发表于 2010-5-19 12:29:00

你下载这个文件试试

cxs259 · 发表于 2010-5-19 13:59:00

ok了，谢谢！

还想再请教一下，能否把宽度240mm,改为任意宽度呢？这样在画钢结构的H型钢或角钢剖面线是就可以一次性画出，减少多次偏移命令。

cxs259 · 发表于 2010-5-19 14:18:00

如图例所示

gufeng · 发表于 2010-5-20 17:34:00

1、程序开始中的 wwdy 就是宽度，你可以自己修改把240换成你要的数

(if (= wwdy nil)
(setq wwdy 240)
)

2、如果你需要每次在命令行的时候输入，则在前面加上

(setq wwdy (getint "\n请输入宽度:"))

使用的时候会提示输入宽度，不输入直接确定默认就是 (setq wwdy 240) 这个宽度，看你的设定.

账号		自动登录	找回密码
密码			注册

请教版主，能否调整下面的LISP,把双线改为四线，其中中间两条线可以按参数输入离两

本帖子中包含更多资源

本帖子中包含更多资源