图层问题

love1030312

  这是一个偏移的程序  
     在什么地方加入什么代码能偏移到当前图层


谢谢谢谢

lostbalance

lz的程序里，好像是调用的autocad里的offset命令实现的偏移。印象中，高版本的autocad的offset命令支持图层便宜功能，简单点就是按照cad的offset中的图层控制，把相关关键词加入到代码command offset中。
另外也可以用entlast还有repeat命令把偏移产生的新图元依次用entmod改图层。

77077

;双向偏移,并将偏移后的对象放置到相应图层
  (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
      (vlax-for obj
                  (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
                 (ptlay (vla-offset obj D1) LAYER1)
                  (ptlay (vla-offset obj (* D1 -1)) LAYER1)
                   )
                    (vlax-release-object obj)
  )

；-------------------------------------------
(defun ptlay (x y)  (vla-put-layer(car(vlax-safearray->list(vlax-variant-value x)))y))

love1030312

77077 发表于 2014-6-12 00:26
;双向偏移,并将偏移后的对象放置到相应图层
  (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
      ( ...

大哥 能把你该好的程序直接发上来吗 ？  我加了不行啊

love1030312

lostbalance 发表于 2014-6-11 23:28
lz的程序里，好像是调用的autocad里的offset命令实现的偏移。印象中，高版本的autocad的offset命令支持图层 ...

大哥 那您贴个程序上来呗

lostbalance

love1030312 发表于 2014-6-12 08:16
大哥 那您贴个程序上来呗

1. 把程序里的"offset"全部替换成"offset" "L" "C"
2. 在(setq i(1+ i))后面加入(command "offset" "l" "s" "" "")
这个方法要求autocad的offset支持图层设置，2012版可以，其他版本不清楚。

love1030312

lostbalance 发表于 2014-6-12 18:41
1. 把程序里的"offset"全部替换成"offset" "L" "C"
2. 在(setq i(1+ i))后面加入(command "offset" "l"  ...

谢谢   朋友