批量偏移

newer

tianyi1230 发表于 2013-8-5 15:49
我想学习图像DCL的技术，不行吗？选择判断的条件设定在对话框上显示不行吗？

对话框技术是为了大量的交互输入使用的技术，你觉得用对话框能让你加快操作就用。只是楼主这个问题，不知道什么判断条件要显示到对话框上。

--@-----

i3ku 发表于 2013-8-5 07:54
源泉里面有个画粉刷线的可以实现楼主的要求

我只是举个例子，呵呵。要这个功能并非主要为画粉刷线用的{:soso_e113:}

Lispboy

--@----- 发表于 2013-8-5 20:51
我只是举个例子，呵呵。要这个功能并非主要为画粉刷线用的

那你想主要干啥用的？

--@-----

Lispboy 发表于 2013-8-5 21:08
那你想主要干啥用的？

画图中经常会遇到这样的啊 几根线偏移然后再倒角，用这就不需要倒角了，而且是批量框的,如果交叉的线,或者还没有交点的线， 框选（支持点选)偏移，自动倒角了。那功能更强大，所以想的很完美，插件才能更接近完美。

Free-Lancer

--@----- 发表于 2013-8-5 21:41
画图中经常会遇到这样的啊 几根线偏移然后再倒角，用这就不需要倒角了，而且是批量框的,如果交叉的线,或 ...

只有做出顺序点表，然后用 xdrx_points_offset

炫翔

介入大家要求，现贴出随手源码此源码学习用，给你的工作带来任何的损失，与本人无关
[sell=50];框选合并偏移
;BY：炫翔 QQ：2363673534  http://xuanxiang.ys168.com
(defun c:xx (/ en enlst1 enlst2 po s1 ss)
(xx-princA "框选合并偏移")
  (setq disst (getdist "\n请指定偏移距离:"))
  (setq en (entlast))
  (if (or
        (setq ss (ssget '((0 . "line,lwpolyline,arc"))))
        (setq ss (ssget "i" '((0 . "line,lwpolyline,arc"))))
      )
    (progn
      (setq enlst2 (xx-ss-2-NameLst ss))
      (pedit ss)
      (setq enlst1 (xx-lst-EnLastLst en))
      (setq s1 (xx-lst-JianJi enlst1 enlst2))
      (setq po (getpoint "\n请指定偏移点:"))
      (foreach x s1
        (command "_.OFFSET" disst x po "")
        (vla-put-color (vlax-ename->vla-object (entlast)) 1)
      )
    )
  )
)


(defun xx-lst-JianJi (lst1 lst2 / lst)
   (setq lst (append lst1 lst2))
   (vl-remove-if '(lambda (x) (member x (cdr (member x lst)))) lst)
)

(defun xx-ss-2-NameLst (SS / xx-ename)
(defun xx-ename(X) (= (type X) 'ENAME))
  (vl-remove-if-not 'xx-ename (mapcar 'cadr (ssnamex SS)))
)

(defun xx-lst-EnLastLst (s1 / lst)
  (while (setq s1 (entnext s1))
    (if (not (member (cdr(assoc 0 (entget s1))) '("attrib" "vertex" "seqend")))
        (setq lst (cons s1 lst))
     )
  )
   (reverse lst)   
)

(defun pedit (ss / co pe)
  (setq co (getvar 'cmdecho))
  (setq pe (getvar 'peditaccept))
  (setvar 'cmdecho 0)
  (setvar 'peditaccept 1)
  (command "_.Pedit" "_m" ss "" "_j" "" "")
  (setvar 'peditaccept pe)
  (setvar 'cmdecho co)
  (princ)
)

(defun xx-princA (txt / txt1)
(if(= (type txt) 'str)
  (progn
   (setq txt1
    (strcat
     (vl-list->string '(10 161 190 236 197 207 232 67 65 68 178 229 188 254 161 191 45 45 45))
     txt
     (vl-list->string '(185 166 196 220 32))
     (vl-list->string '(32 32 32 81 81 58 50 51 54 51 54 55 51 53 51 52))
    )
   )
   (princ txt1)
  )
  (princ "错了！(xx-princA 后面要输入字符串！)")
)
)

[/sell]

tianyi1230

开心的东西貌似有点贵啊，不能便宜点吗，一下子就洗干净了我的所有豆豆。

tangjunasd58

没有贴出来啊:)

ysq101

支持一下~！~

i3ku

不错，如果能偏移到当前层就更好了

LPACMQ

学习学习应该会有新的发现

米克

............

enn09

感谢分享，好程序，很实用

enn09

好程序，感谢分享

hzj268

炫翔 发表于 2013-8-6 08:38
介入大家要求，现贴出随手源码此源码学习用，给你的工作带来任何的损失，与本人无关
**** 本内容需购买可见 ****

对了我刚才试用了一下能不能让它批量向里偏移，提示是否删除原来的图形，望添加{:soso_e113:}因为我想直接出胶缝