多选直线按指定打断距离打断直线

xtdwynij · 发表于 2013-4-12 18:59:14

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

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

×

本帖最后由炫翔于 2013-4-19 11:25 编辑

大于或等于20 小于或等于100的打断一次大于100的按除以100来算比如:105就打断二次 200也是打断二次以此类推打断距离为4MM 小于20MM的打断距离为1.5MM 下面是郊果图

xtdwynij · 发表于 2013-4-12 19:01:16

(defun c:tt ()
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (setq i 0)
  (repeat (sslength ss)
(setq name (ssname ss i))
(setq ent (entget name))
(setq pt10 (cdr (assoc 10 ent)))
(setq pt11 (cdr(assoc 11 ent)))
(setq dist (distance pt10 pt11))
(setq ang (angle pt10 pt11))
(cond
   ((and (<= dist 100) (>= dist 20)) (setq gs 1))
   ((> dist 100.0) (setq gs (1+(fix (/ dist 100)))) )
) ;桥位的个数

(setq abc 1)
(repeat gs
   (setq dist1 (/ dist (1+ gs)))
   (setq pt1 (polar pt10 ang dist1)) ;距离
   (command "circle" pt1 2)
   (setq dist1 (* dist1 2.0))
   (setq abc (1+ abc))
)
(setq i (1+ i))
  )
  (setvar "osmode" 3)
  (setvar "osmode" 1)
)
这是我写的代码.不知道哪里出错了.只能画出一个圆.远远也没有达到我想要的!新学LISP还请前辈师兄们多多指点

xtdwynij · 发表于 2013-4-12 19:04:15

第一次发贴,完全不知道怎么用.用了三个才搞定!呵呵.

炫翔 · 发表于 2013-4-12 19:08:44

给你思路：框选线，循环计算每一条的长度，判断长度，然后找到中点，打断.....

Lispboy · 发表于 2013-4-12 19:14:19

xtdwynij 发表于 2013-4-12 19:04

登录/注册后可看大图

第一次发贴,完全不知道怎么用.用了三个才搞定!呵呵.

问下，你这个是什么专业的，什么情况下需要这样打断？

另外，如果只是打断的话，试试设计一个合适的线型是不是更方便？

Lispboy · 发表于 2013-4-12 19:19:00

(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)

建议你下，函数SSGET应该使用过滤，选择集里面只放你需要处理的实体，这样你的代码要少，也不容易出错。

比如你要处理线：

(setq ss (ssget '((0 . "LINE"))))

如果你要是在加上层的限制，那就更应该了。

newer · 发表于 2013-4-12 19:28:40

既然你说只能花出一个圆，那么肯定就是这部分代码的问题了，你查看下变量GS等于多少，应该肯定等于1了。

如果不管线多长，GS都等于1，那么就是上面算GS的地方出错了。

(repeat gs
(setq dist1 (/ dist (1+ gs)))
(setq pt1 (polar pt10 ang dist1)) ;距离
(command "circle" pt1 2)
(setq dist1 (* dist1 2.0))
(setq abc (1+ abc))
)

newer · 发表于 2013-4-12 19:34:54

本帖最后由 newer 于 2013-4-12 19:41 编辑

xtdwynij 发表于 2013-4-12 19:01

登录/注册后可看大图

(defun c:tt ()
(setvar "osmode" 0)
(setvar "cmdecho" 0)

看明白了，你仔细看下代码:

(repeat gs
(setq dist1 (/ dist (1+ gs)))
(setq pt1 (polar pt10 ang dist1)) ;距离
(command "circle" pt1 2)
(setq dist1 (* dist1 2.0))
(setq abc (1+ abc))
)

循环开始的时候，你取得的第一个点，距离端点10距离DIST。

画完圆后，你按想法把 dist1增量了。

可第二次回循环后，这个dist1又是原来的第一个点的位置了。因为这时候的dist1还是根据dist得到的，而你循环里面并没有改变dist的值，dist1在画圆前永远是定值了。

(/ dist (1+ gs)) --->常量

复制代码

其实不是只能画一个圆，你选择下画过的圆看看，应该好几个都重合在一起了。

xtdwynij · 发表于 2013-4-12 19:36:50

newer 发表于 2013-4-12 19:28

登录/注册后可看大图

既然你说只能花出一个圆，那么肯定就是这部分代码的问题了，你查看下变量GS等于多少，应该肯定等于1了。

...

我知道是这部分的问题,GS并不是只等于1.也不是在单单在中间打断.是根据线的长度打断的!长度超过100和等于200时打断二次..然后每过100都打断一次.不到一百也打断一次. 我想是第二次循环错了.但是不知道错在哪里?

xtdwynij · 发表于 2013-4-12 19:38:18

Lispboy 发表于 2013-4-12 19:19

登录/注册后可看大图

建议你下，函数SSGET应该使用过滤，选择集里面只放你需要处理的实体，这样你的代码要少，也不容易出错。

...

谢谢指点!呵呵.我知道这个功能.只是没有用过.正打算解决了就查一下怎么才能只选直线呢!

xtdwynij · 发表于 2013-4-12 19:39:33

Lispboy 发表于 2013-4-12 19:14

登录/注册后可看大图

问下，你这个是什么专业的，什么情况下需要这样打断？

另外，如果只是打断的话，试试设计一个合适的线 ...

是要打断郊果的!线型的话量不出间距!刀模行业的!呵呵

xtdwynij · 发表于 2013-4-12 19:54:43

newer 发表于 2013-4-12 19:34

登录/注册后可看大图

看明白了，你仔细看下代码:循环开始的时候，你取得的第一个点，距离端点10距离DIST。

画完圆后，你按想 ...

是的!循环里面不能计算那个值!我把那个值放在上面了!然后就可以了!感谢版主!呵呵.一放上去就有好多人来回复.

newer · 发表于 2013-4-12 19:59:36

xtdwynij 发表于 2013-4-12 19:54

登录/注册后可看大图

是的!循环里面不能计算那个值!我把那个值放在上面了!然后就可以了!感谢版主!呵呵.一放上去就有好多人来回 ...

:) 那把你完善后的程序帖上来啊。

xtdwynij · 发表于 2013-4-12 20:15:07

[pcode=lisp,true];;打断开口：≥20 ≤100的打断1次开口4；>100的按除以100来算开口4；< 20的的打断1次开口1.5
(defun c:tt ()
  (CMDLA0)
  (xyp-MkLaCo "TEST" 1)
  (setq       ss (ssget '((0 . "line")(8 . "0")))
      i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq leng (xyp-get-CurveLength s1))
(xyp-SubUpd s1 8 "test")
(cond ((< 0 leng 20) (setq n 2 dw 1.5))
      ((<= 20 leng 100) (setq n 2 dw 4))
      ((< 100 leng)(setq n (+(fix(/ leng 100.))1) dw 4))
)
(xyp-Curve-Divide s1 n dw)
  )
  (CMDLA1)
)
[/pcode]院长的伪源码!我还没做好!等做好了再贴上去!可能要久点!

xtdwynij · 发表于 2013-4-12 20:25:11

这是郊果图.院长果然高产量!

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

[已解决] 多选直线按指定打断距离打断直线

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

点评

本帖被以下淘专辑推荐:

相关帖子