插入动态块-gm哥(已改进完毕)

守仁格竹GM · 发表于 2013-8-20 10:23:19

购买主题 已有 25 人购买 本主题需向作者支付 3 D豆 才能浏览

newer · 发表于 2013-8-20 10:35:14

你这样容易让人说你是伪源码哦。至少要说下那几个函数作用是什么，返回值是什么。

守仁格竹GM · 发表于 2013-8-20 10:46:37

本帖最后由守仁格竹GM 于 2013-8-20 11:43 编辑

newer 发表于 2013-8-20 10:35
你这样容易让人说你是伪源码哦。至少要说下那几个函数作用是什么，返回值是什么。

都补充完毕了

yangliucq · 发表于 2013-8-20 10:50:33

晕死，:@:@:@:@:@:@，论坛还会出现这样的帖子，奇葩！！！！！！！！！！！！！！！！！

守仁格竹GM · 发表于 2013-8-20 10:52:11

yangliucq 发表于 2013-8-20 10:50
晕死，，论坛还会出现这样的帖子，奇葩！！！！！！！！！！！！！！！！！

什么情况？不付出不知道珍惜的道理不懂？稍微用心一点点什么都得到了

newer · 发表于 2013-8-20 10:53:33

楼主，不如渡人渡到底，就几个函数，把函数代码给找到，转帖过来吧。

守仁格竹GM · 发表于 2013-8-20 10:55:19

本帖最后由守仁格竹GM 于 2013-8-20 11:10 编辑

newer 发表于 2013-8-20 10:53
楼主，不如渡人渡到底，就几个函数，把函数代码给找到，转帖过来吧。

主题中已加入

wowan1314 · 发表于 2013-8-20 11:01:28

{:soso__7724093059870471121_4:}此贴仅发帖者可见！

守仁格竹GM · 发表于 2013-8-20 11:03:34

wowan1314 发表于 2013-8-20 11:01
此贴仅发帖者可见！

不好意思以为回复可见我在设置下

LoveArx · 发表于 2013-8-20 11:10:07

楼主，不会发帖用格式化代码吗？这样发代码不好看。

xieyanghui123 · 发表于 2013-8-20 11:17:25

购买一个主题，再购买一个广告位，郁闷！看看什么精品

eachy · 发表于 2013-8-20 11:24:42

帮你格式化了，加入 {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)
)

(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) 
)

守仁格竹GM · 发表于 2013-8-20 11:26:20

eachy 发表于 2013-8-20 11:24
帮你格式化了，加入 {code=lisp} {/code} 使用时 {} 换成 []
另外写了个供参考，没有块无法测试

多谢，主题也格式化了，最主要的函数也都放进去了，附件马上就加上

守仁格竹GM · 发表于 2013-8-20 11:38:06

newer 发表于 2013-8-20 10:53
楼主，不如渡人渡到底，就几个函数，把函数代码给找到，转帖过来吧。

此功能已经把全部源码奉送，设置了回复权限和花3个豆的付费

守仁格竹GM · 发表于 2013-8-20 11:42:22

LoveArx 发表于 2013-8-20 11:10
楼主，不会发帖用格式化代码吗？这样发代码不好看。

都弄好了，再看看吧

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

守仁格竹GM 守仁格竹GM 当前离线 UID 675148 积分 604 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-4-18 最后登录 1970-1-1 窥视卡雷达卡已领礼包: 1757个财富等级: 堆金积玉	发表于 2013-8-20 10:23:19 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略购买主题已有 25 人购买本主题需向作者支付 3 D豆才能浏览
	相关帖子 • 多段线动态拖动测量面积长度 • 求助动态属性块的使用 • 求助—动态块的设置方式 • DCL动态输入 • 动态LEADER标注 • Jig动态变换图元 • 让ARX程序随CAD一起启动的方法 • （XD::Block:Name）获得块（动态块），块定义的名字 • 重载AREA命令，如何动态实现选择区域的透明度问题 • 多重引线动态四方向拖动论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

[发布] 插入动态块-gm哥(已改进完毕)

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评