[求助]cad里面怎么根据一段闭合的pl线画出相对应的矩形，高度不变，宽度根据以画好

hhh454 · 发表于 2009-9-12 14:37:00

本帖最后由作者于 2009-9-12 19:40:16 编辑

[求助]cad里面怎么根据一段闭合的pl线画出相对应的矩形，高度不变，宽度根据以画好的pl线[br]

根据已知的pl线的长度，设置特定的高度，自动画出等高的矩形，矩形的宽就是pl线的长度。见图，希望哪位大哥帮忙给个lisp的代码，万分感谢，谢谢。

ZZXXQQ · 发表于 2009-9-12 20:32:00

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

hhh454 · 发表于 2009-9-12 21:07:00

谢谢您的帮助，但是我运行了提示这个“Select Center Line(s) 选择线条 :; 错误: no function definition: WCMACTH”，帮忙看一下

hhh454 · 发表于 2009-9-12 21:42:00

已经改好了，谢谢您了，只要把wcmatch，改成小写就可以了。

caoyao_1987 · 发表于 2011-8-28 13:40:48

我是做冲模设计的，我想要这个功能啊

434939575 · 发表于 2011-9-5 21:43:04

(defun C:cv(/ CURVE TLEN SS N SUMLEN p03 pta  ) ;不是我写的。忘记链接的。

  (vl-load-com)
  (setq SUMLEN 0)
  (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq N 0)
  (repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
   )
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
  )

(setq pta (getpoint "Lower left corner:"))


(setq p03 (polar pta 0.0 SUMLEN))

(if (= abc nil) (setq abc 100))
(prompt "\n输入墙高度;")
(princ abc)
(setq b(getreal "mm "))
(if (/= b nil) (setq abc b))


(setq aa  abc )
(setq ptys (polar p03 ( / pi 2) abc ))
  (command  "RECTANG"  pta ptys "")

  (princ)
)

hhh454 · 发表于 2011-9-6 11:36:47

谢谢，帮助，我正在学习中，

zltangent · 发表于 2011-9-6 23:10:07

mark，有关PLine线的帖子不多啊，怎么

zltangent · 发表于 2011-9-6 23:10:40

支持下吧还是

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