天花石膏线偏移工具

vladimir · 发表于 2017-11-7 09:58:54

非常好的资料，谢谢分享啊。

囗Peanut囗 · 发表于 2017-11-8 06:52:37

好插件，谢谢分享~~

小毛草 · 发表于 2017-11-9 09:22:59

本帖最后由小毛草于 2017-11-9 09:24 编辑

以前有一个网友写的，效果差不多的，亦可以实现，
可以参考一下

(defun c:TQ (/ char-02 char-1 ent i lay lays list1 list2 long lst name name1 pt pt1 s snap ss uuu x y)
  (vl-load-com)
  (defun zz01 (ent / lst x)
(foreach x ent
   (if (= (car x) 10)
(setq lst (cons (cdr x) lst))
   )
)
lst
  )
  (setvar "CMDECHO" 0)
  (command "_.purge" "B" "" "n")
  (if (null jbak)
(setq jbak 15.0)
  )
  (setq lay nil)
  (while (setq lay (tblnext "block" (not lay)))
(setq lays (append
lays
(list (cdr (assoc 2 lay)))
      )
)
  )
  (setq uuu 0
i 0
  )
  (while (< i (length lays))
(setq char-02 (nth i lays))
(if (= (substr char-02 1 4) "区域")
   (progn
(if (> (atoi (substr char-02 5)) uuu)
(setq uuu (atoi (substr char-02 5)))
)
   )
)
(setq i (1+ i))
  )
  (while (progn
(while (progn
   (initget "S ")
   (if (= (setq pt (getpoint (strcat "\n指定内部点,或[设置(S)]:<偏移距离" (rtos jbak) ">")))
   "S"
)
      (if (setq s (getreal (strcat "\n设置偏移距离:<" (rtos jbak) ">")))
(setq jbak s)
      )
   )
   (if (null pt)
   (vl-exit-with-error "")
   )
   (or
      (= pt "S")
      (not (= (type pt) 'list))
   )
)
)
(= (type pt) 'list)
  )
(command ".UNDO" "BE")
(setq snap (getvar "osmode"))
(setvar "osmode" 0)
(command "BPOLY" pt "")
(setq name (entlast)
list1 (zz01 (entget name))
ss (ssadd)
)
(command "OFFSET" jbak name pt "")
(setq name1 (entlast)
list2 (zz01 (entget name1))
)
(ssadd name1 ss)
(entdel name)
(foreach x list2
   (setq long 1e6)
   (foreach y list1
(if (< (distance x y) long)
(setq pt1 y
  long (distance x y)
)
)
   )
   (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") (cons 10 x) (cons 11 pt1)))
   (ssadd (entlast) ss)
)
(setq char-1 (strcat "区域" (itoa (setq uuu (1+ uuu)))))
(command "block" char-1 pt ss "")
(command "INSERT" char-1 pt 1 1 0)
(setvar "osmode" snap)
(command ".UNDO" "E")
  )
  (princ)
)

KO你 · 发表于 2018-12-5 18:40:44

hhh454 发表于 2017-11-1 19:11
代码思路：1，取得选择多义线的各个端点 2，取得偏移后多义线的端点
...

用不了,程序缺失

KO你 · 发表于 2018-12-5 19:16:53

本帖最后由 KO你于 2018-12-5 19:29 编辑

快捷命令 QG

yoyoho · 发表于 2018-12-7 00:00:15

谢谢! KO你分享程序!!!!!

yoyoho · 发表于 2018-12-7 00:23:56

谢谢! xyp1964 分享程序!!!!!

水仙的错 · 发表于 2019-9-13 21:15:27

能给个源码吗？，谢谢了:D

xvjiex · 发表于 2019-9-13 22:29:26

xiang19751218 发表于 2017-11-2 20:33

请问程序的启动命令，谢谢！

xfjiamy · 发表于 2019-9-21 21:45:53

谢谢!分享程序!

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

[源码] 天花石膏线偏移工具

拾取饰线偏移连接端点

本帖子中包含更多资源