设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › 编程申请 › 请教版主，能否调整下面的LISP,把双线改为四线，其中中 ...
123下一页
返回列表 发新帖
楼主: cxs259

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

  [复制链接]
cxs259
 楼主| 发表于 2010-5-20 21:43:00 | 显示全部楼层

测试成功，感谢古大侠！

回复 支持 反对

使用道具 举报

cxs259
 楼主| 发表于 2010-5-20 22:08:00 | 显示全部楼层
本程序若改为三线方便吗？这样画角钢投影线就方便多了
回复 支持 反对

使用道具 举报

gufeng
发表于 2010-5-21 09:32:00 | 显示全部楼层
  2. ;;; 执行命令3L
  3. (defun c:3L ()
  4.   (setq wwdy (getint "\n请输入宽度:"))
  5.   (if (= wwdy nil)
  6.     (setq wwdy 240)
  7.   )
  8.   (prompt (strcat "\n  now dline width is: " (rtos wwdy 2 2)))
  9.   (setq dis1 (* 0.5 wwdy))
  10. ;;;  (setq dis2 (getint (strcat "\n输入离两边线的距离,不能大于"
  11. ;;;        (rtos (* 0.5 wwdy) 2 0)
  12. ;;;        ":<"
  13. ;;;        (rtos (* 0.5 wwdy) 2 0)
  14. ;;;        ">"
  15. ;;;       )
  16. ;;;      )
  17. ;;;  );_如果需要画5线请去掉这行注释
  18. ;;;  (if dis2
  19. ;;;    (setq dis2 (- (* 0.5 wwdy) dis2))
  20. ;;;    (setq dis2 (* 0.25 wwdy))
  21. ;;;  );_如果需要画5线请去掉这行注释
  22.   (setq pt1 (getpoint "\n enter start point:"))
  23.   (setq pt2 (getpoint pt1 "\n enter next point:"))
  24.   (setq ag1 (angle pt1 pt2))
  25.   (setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
  26.   (setq pt11u (polar pt1 (+ ag1 1.5708) dis2))
  27.   (setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
  28.   (setq pt22u (polar pt2 (+ ag1 1.5708) dis2))
  29.   (setq pt1d (polar pt1 (- ag1 1.5708) dis1))
  30.   (setq pt11d (polar pt1 (- ag1 1.5708) dis2))
  31.   (setq pt2d (polar pt2 (- ag1 1.5708) dis1))
  32.   (setq pt22d (polar pt2 (- ag1 1.5708) dis2))
  33.   (command "pline" "non" pt1 "non" pt2 "")
  34.   (command "pline" "non" pt1u "non" pt2u "")
  35. ;;;  (command "pline" "non" pt11u "non" pt22u "");_如果需要画5线请去掉这行注释
  36.   (command "pline" "non" pt1d "non" pt2d "")
  37. ;;;  (command "pline" "non" pt11d "non" pt22d "");_如果需要画5线请去掉这行注释
  38.   (repeat 100
  39.     (setq pt1 pt2)
  40.     (if (and pt1 pt2)
  41.       (progn
  42. (setq pt2 (getpoint pt1 "\n enter next point:"))
  43. (if pt2
  44.    (progn
  45.      (setq dis1 (* 0.5 wwdy))
  46.      (setq ag1 (angle pt1 pt2))
  47.      (setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
  48.      (setq pt11u (polar pt1 (+ ag1 1.5708) dis2))
  49.      (setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
  50.      (setq pt22u (polar pt2 (+ ag1 1.5708) dis2))
  51.      (setq pt1d (polar pt1 (- ag1 1.5708) dis1))
  52.      (setq pt11d (polar pt1 (- ag1 1.5708) dis2))
  53.      (setq pt2d (polar pt2 (- ag1 1.5708) dis1))
  54.      (setq pt22d (polar pt2 (- ag1 1.5708) dis2))
  55.      (command "pline" "non" pt1 "non" pt2 "")
  56.      (command "pline" "non" pt1u "non" pt2u "")
  57. ;;;     (command "pline" "non" pt11u "non" pt22u "");_如果需要画5线去掉这行注释
  58.      (command "pline" "non" pt1d "non" pt2d "")
  59. ;;;     (command "pline" "non" pt11d "non" pt22d "");_如果需要画5线去掉这行注释
  60.    )
  61. )
  62.       )
  63.     )
  64.   )
  65.   (princ)
  66. )

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复 支持 反对

使用道具 举报

cxs259
 楼主| 发表于 2010-5-21 12:11:00 | 显示全部楼层

请问画三线时，为什么总是居中，能否像四线一样可以输入参数，得到离边线的距离？

回复 支持 反对

使用道具 举报

gufeng
发表于 2010-5-22 10:18:00 | 显示全部楼层
  2. (defun c:3L ()
  3.   (setq wwdy (getint "\n请输入宽度:"))
  4.   (if (= wwdy nil)
  5.     (setq wwdy 240)
  6.   )
  7.   (prompt (strcat "\n  now dline width is: " (rtos wwdy 2 2)))
  8.   (setq dis1 (* 0.5 wwdy))
  9.   (setq dis2 (getint (strcat "\n输入距离,不能大于"
  10.         (rtos wwdy 2 0)
  11.         ":<"
  12.         (rtos (* 0.5 wwdy) 2 0)
  13.         ">"
  14.        )
  15.       )
  16.   )
  17.   (if dis2
  18.     (setq dis2 (- (* 0.5 wwdy) dis2))
  19.     (setq dis2 0)
  20.   )
  21.   (setq pt1 (getpoint "\n enter start point:"))
  22.   (setq pt2 (getpoint pt1 "\n enter next point:"))
  23.   (setq ag1 (angle pt1 pt2))
  24.   (setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
  25.   (setq pt11u (polar pt1 (+ ag1 1.5708) dis2))
  26.   (setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
  27.   (setq pt22u (polar pt2 (+ ag1 1.5708) dis2))
  28.   (setq pt1d (polar pt1 (- ag1 1.5708) dis1))
  29.   (setq pt11d (polar pt1 (- ag1 1.5708) dis2))
  30.   (setq pt2d (polar pt2 (- ag1 1.5708) dis1))
  31.   (setq pt22d (polar pt2 (- ag1 1.5708) dis2))
  32.   (command "pline" "non" pt1u "non" pt2u "")
  33.   (command "pline" "non" pt11u "non" pt22u "")
  34.   (command "pline" "non" pt1d "non" pt2d "")
  35.   (repeat 100
  36.     (setq pt1 pt2)
  37.     (if (and pt1 pt2)
  38.       (progn
  39. (setq pt2 (getpoint pt1 "\n enter next point:"))
  40. (if pt2
  41.    (progn
  42.      (setq dis1 (* 0.5 wwdy))
  43.      (setq ag1 (angle pt1 pt2))
  44.      (setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
  45.      (setq pt11u (polar pt1 (+ ag1 1.5708) dis2))
  46.      (setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
  47.      (setq pt22u (polar pt2 (+ ag1 1.5708) dis2))
  48.      (setq pt1d (polar pt1 (- ag1 1.5708) dis1))
  49.      (setq pt11d (polar pt1 (- ag1 1.5708) dis2))
  50.      (setq pt2d (polar pt2 (- ag1 1.5708) dis1))
  51.      (setq pt22d (polar pt2 (- ag1 1.5708) dis2))
  52.      (command "pline" "non" pt1u "non" pt2u "")
  53.      (command "pline" "non" pt11u "non" pt22u "")
  54.      (command "pline" "non" pt1d "non" pt2d "")
  55.    )
  56. )
  57.       )
  58.     )
  59.   )
  60.   (princ)
  61. )

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复 支持 反对

使用道具 举报

cxs259
 楼主| 发表于 2010-5-22 12:15:00 | 显示全部楼层

再次感谢古大侠的热心解答，祝福好人平安、快乐！

回复 支持 反对

使用道具 举报

cxs259
 楼主| 发表于 2010-5-31 15:56:00 | 显示全部楼层

请教古大侠，在应用过程中，有些不是整数的厚度，如“输入离两边线的距离,不能大于20:<20>5.5
需要整数值.”上面的3L,4L程序可以修改吗？

 

回复 支持 反对

使用道具 举报

gufeng
发表于 2010-6-1 15:01:00 | 显示全部楼层

在3L与4L文件中 替换 getint 为 getreal 就可以了

  方法:用记事本打开文件,替换.

回复 支持 反对

使用道具 举报

cxs259
 楼主| 发表于 2010-6-1 15:17:00 | 显示全部楼层

已替换，谢谢！

回复 支持 反对

使用道具 举报

bai2000
发表于 2013-1-6 22:18:01 | 显示全部楼层
能不能改线性？？？？
回复 支持 反对

使用道具 举报

123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2025-2-27 14:17 , Processed in 0.156293 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表