[编程申请]：能否用程序实现这样一个效果？

yjtdkj · 发表于 2005-10-20 12:29:42

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

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

×

[iframe h=600 w=100%]http://p4.xdcad.net/forum/showthread.php?s=&threadid=477321[/iframe]

xyp1964 · 发表于 2005-10-20 13:23:28

[FONT=courier new];;;双向偏移并改层
(defun c:test184 ()
(cmdla0)
(mkla "TEST" 1) ;自定义层名TEST
(SETQ getds (UDIST 7 "" "\n输入偏移距离<可直接量取>:" getds nil)
ss (ssget "X")
)
(if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
(vlax-for obj (vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-offset obj getds)
(vla-offset obj (* getds -1))
)
(vlax-release-object obj)
)
(command "select" (ssget "X") "r" ss "")
(setq ss (ssget "P"))
(command "change" ss "" "P" "la" "test" "")
(cmdla1)
)[/FONT]

yjtdkj · 发表于 2005-10-20 13:42:04

一个字！好！
我不太了解VLISP的函数，恳请斑竹讲解一下好吗？

露水2 · 发表于 2005-10-20 15:00:12

练习了一个，比较笨的方法
只对线起作用
(defun c:test()
(setq la (tblsearch "layer" "偏移层"))
   (if (null la) (command "layer" "n" "偏移层" "c" "1" "偏移层" ""))
   (setvar "clayer" "偏移层")
(prompt "\选择偏移的线:")
(setq ss1 (ssget))
(setq dd (getreal "输入偏移的值<2.5>:"))
(if (null dd) (setq dd 2.5))
  (command "mline" "j" "z" "")
  (setq n 0)
(repeat (sslength ss1)
      (setq en (ssname ss1 n))
      (setq ss2 (entlast))
      (setq en_data (entget en))
      (setq en_type (cdr (assoc 0 en_data)))
(if (= en_type "LINE")
   (progn
   (setq ptq (cdr (assoc 10 en_data)))
   (setq ptz (cdr (assoc 11 en_data)))
   (command "mline" ptq ptz "")
   )
)
(setq n (+ n 1))
)
)

yjtdkj · 发表于 2005-10-21 17:05:32

XYP1964:有一个问题，就是我想要在一组线上偏移（宽度不同）两次的话就不能实现了，我试用过把已偏移的线所在图层关掉，但再执行时它又自打开了。能不能把偏移的线所在图层过滤掉呢？
还有一点，多义线不能偏移

xyp1964 · 发表于 2005-10-21 18:01:45

最初由 yjtdkj 发布
[B]XYP1964:有一个问题，就是我想要在一组线上偏移（宽度不同）两次的话就不能实现了，我试用过把已偏移的线所在图层关掉，但再执行时它又自打开了。能不能把偏移的线所在图层过滤掉呢？
还有一点，多义线不能偏移 [/B]

发个图片把要求说清楚！
你没有说要偏移多义线

yjtdkj · 发表于 2005-10-21 18:32:51

*-*6 真是不好意思，因为急用，没怎么想就写上了

xyp1964 · 发表于 2005-10-21 19:40:17

[FONT=courier new];;;双向偏移并改层
(defun c:test ()
(cmdla0)
(setvar "OFFSETGAPTYPE" 0)
(mkla "TEST" 1) ;自定义层名TEST
(SETQ getds (UDIST 7 "" "\n输入偏移距离<可直接量取>:" getds nil)
ss (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
la (getvar"clayer")
i -1
)
(setvar "OFFSETDIST" getds)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt (vlax-curve-getstartPoint s1)
pt1 (PT-FAXIAN s1 pt 10)
pt2 (PT-FAXIAN s1 pt -10)
)
(command "offset" "" s1 pt1 "")
(command "change" (entlast) "" "P" "la" la "")
(command "offset" "" s1 pt2 "")
(command "change" (entlast) "" "P" "la" la "")
)
(cmdla1)
)[/FONT]

yjtdkj · 发表于 2005-10-21 20:32:32

不知道为什么，楼上的这个程序出现只向一边偏移的问题，

狂刀 · 发表于 2005-10-21 22:40:47

有些情况是偏移不了的

jxd21 · 发表于 2005-10-25 09:41:54

我不知道楼上的高手能不能把这个程序改成变墙厚的,也就是原来240的墙改成200的,两边两条墙线各向里(或向外)偏移20,不知我说明白没??
借宝地咨询,请楼主别见怪

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

[编程申请]：能否用程序实现这样一个效果？

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

相关帖子

真是不好意思！！

浏览过的版块