已有 25 人购买 本主题需向作者支付 3 D豆 才能浏览 购买主题
你这样容易让人说你是伪源码哦。至少要说下那几个函数作用是什么，返回值是什么。
本帖最后由 守仁格竹GM 于 2013-8-20 11:43 编辑
newer 发表于 2013-8-20 10:35
你这样容易让人说你是伪源码哦。至少要说下那几个函数作用是什么，返回值是什么。
都补充完毕了
晕死，:@:@:@:@:@:@，论坛还会出现这样的帖子，奇葩！！！！！！！！！！！！！！！！！
yangliucq 发表于 2013-8-20 10:50
晕死，，论坛还会出现这样的帖子，奇葩！！！！！！！！！！！！！！！！！
什么情况？ 不付出 不知道珍惜的道理不懂？稍微用心一点点 什么都得到了
楼主，不如渡人渡到底，就几个函数，把函数代码给找到，转帖过来吧。
本帖最后由 守仁格竹GM 于 2013-8-20 11:10 编辑
newer 发表于 2013-8-20 10:53
楼主，不如渡人渡到底，就几个函数，把函数代码给找到，转帖过来吧。主题中 已加入
{:soso__7724093059870471121_4:}此贴仅发帖者可见！
wowan1314 发表于 2013-8-20 11:01
此贴仅发帖者可见！
不好意思 以为回复可见 我在设置下
楼主，不会发帖用格式化代码吗？ 这样发代码不好看。
购买一个主题，再购买一个广告位，郁闷！看看什么精品
帮你格式化了，加入 {code=lisp} {/code} 使用时 {} 换成 []
另外写了个供参考，没有块无法测试
(defun c:tt (/ ss e pl dis pts p0)
(if (and (progn
(princ "\n选择动态块....")
(setq ss (ssget ":S" '((0 . "insert"))))
)
(setq e (ssname ss 0))
(= (vla-get-isdynamicblock (vlax-ename->vla-object e))
:vlax-true
)
(progn
(princ "\n选择处理的多段线.....")
(setq pl (ssget ":S" '((0 . "LWPOLYLINE"))))
)
(setq dis (getdist "\n 输入间隔宽度："))
)
(progn
(setq pts (mapcar 'cdr
(vl-remove-if-not
'(lambda (x) (= (car x) 10))
(entget (ssname pl 0))
)
)
p0 (mapcar '+ '(5. 31.5 0.) (cdr (assoc 10 (entget e))))
)
(mapcar
'(lambda (p1 p2)
(vl-cmdf ".copy" ss "" "_none" p0 "_none" p1)
(vl-cmdf ".rotate" (entlast) "" "_none" p1 "R" 0 p2)
(DynamicProps (entlast) "L" (- (distance p1 p2) dis))
)
pts
(cdr pts)
)
(vl-cmdf ".regen")
)
)
(princ)
)
eachy 发表于 2013-8-20 11:24
帮你格式化了，加入 {code=lisp} {/code} 使用时 {} 换成 []
另外写了个供参考，没有块无法测试
多谢，主题也格式化了，最主要的函数也都放进去了，附件马上就加上
newer 发表于 2013-8-20 10:53
楼主，不如渡人渡到底，就几个函数，把函数代码给找到，转帖过来吧。
此功能已经把全部源码奉送，设置了回复权限和花3个豆的付费
LoveArx 发表于 2013-8-20 11:10
楼主，不会发帖用格式化代码吗？ 这样发代码不好看。
都弄好了，再看看吧