[编程申请]：高效绘制矩形程序

逐月飞鸿 · 发表于 2008-12-10 15:40:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

怎样用lisp程序快速在每个都闭合的、长度为1294.0的多段线右下点为右下点处画一个长20，宽110的矩形？
如附件所示：
（闭合多段线的顶点和位置并不相同，但是长、宽都一样，总长都是1294cm）

gysjy · 发表于 2008-12-10 18:05:49

为什么要程序呢？制作一个20X400的矩形块，使用端点捕捉插入不就行了吗？

逐月飞鸿 · 发表于 2008-12-11 08:29:10

下面是明经zzxxqq给出的答案，再次表示谢意！
;方框右下角加20x10的矩形明经 ZZXXQQ 2008.12.10
(defun c:nj ()
  (setvar "CMDECHO" 0)
  (princ "\n选择方框 :")
  (if (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1)))) (progn
(setq i 0)
(repeat (sslength ss)
(setq ent (entget(ssname ss i))
      i (1+ i)
      ptl (list)
      j 0)
(if (= (cdr(assoc 90 ent)) 4) (progn
   (repeat (length ent)
   (if (= (car(setq pp (nth j ent))) 10)
   (setq ptl (append ptl (list(cdr pp))))
   )
   (setq j (1+ j))
   )
   (setq pt (list (max (caar ptl) (caadr ptl) (caaddr ptl) (car(last ptl)))
                  (min (cadar ptl) (cadadr ptl) (cadr(nth 2 ptl)) (cadr(last ptl))))
         pt1 (polar (polar pt (/ pi 2) 10) pi 20))
   (command ".rectang" pt pt1)
))
)
  ))
  (princ)
)

但是，美中不足的是，不能全选过滤，必须得一个一个点击1294方框，要是图纸中还有别的图元的时候，操作就显得慢了，要是能过滤图纸中长度为1294的方框，再执行就好了！
请达人帮助一下！

zgllyl · 发表于 2008-12-11 17:41:49

正需要，谢谢提供

逐月飞鸿 · 发表于 2008-12-12 22:27:11

如果改成插入块，？老是优先插入文档中已有的块，我已经指定插入d盘下的块了啊

lijie70000 · 发表于 2009-11-13 18:25:12

这个方法真不错

yoyoho · 发表于 2009-11-17 17:55:21

程序不错喔!
感谢楼主分享
学习了!

ngc · 发表于 2009-11-26 14:14:57

看着挺实用的，我先收藏了，学习

yanbo · 发表于 2009-12-2 15:16:01

正需要，谢谢提供

zjsmlzp · 发表于 2009-12-4 09:45:43

好东西一定要学习

chxl5878 · 发表于 2014-1-20 16:11:53

顶顶顶顶顶顶顶顶

xx69as · 发表于 2016-10-11 12:31:05

我只是路过打酱油的

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

[编程申请]：高效绘制矩形程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

插入块，？老是优先插入文档中已有的块，我已经指定插入d盘下的块了啊