paulpipi 发表于 2018-5-1 00:47:18

支持原创，支持源码

paulpipi 发表于 2019-7-7 12:34:46


是我想要的效果            

season_88 发表于 2025-3-22 09:02:29

谢谢大师分享

dasha321 发表于 2025-6-21 11:56:53

偏移之后删除原对象就好了

chenlianghuai 发表于 2025-6-21 14:46:31

dforme 发表于 2016-6-16 14:09
谢谢，我这里有个相似的程序，但是只能改变原对象的颜色，能否帮我看看，让偏移后的对象颜色改变，比如4 ...

(defun C:w3 ( / curve ent holdcmd holdosmode jang n pt pt1 pt2 ss tmp x)
(defun LEN (CURVE / TLEN)
    (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
)

(command "_.UNDO" "BE")
(if (null tee_dist) (setq tee_dist 10.0)) ;_设置全局变量
(setq HOLDOSMODE (getvar "OSMODE"))
(setq HOLDCMD (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setvar "OSMODE" 0)
(if (setq ss (ssget '((0 . "*LINE,CIRCLE,ARC"))))
    (progn
      (setq n 0)
      (initget 2)
      (if (setq tmp (getdist (strcat "\n指定偏移距离(正__向外偏移 /负__向内偏移): <" (rtos tee_dist 2) ">")))
         (setq tee_dist tmp)
) ;_不输入时自动使用上一次输入数值
      (repeat (sslength ss)
(setq ent (ssname ss n)
       n   (1+ n)
)
(setq CURVE (vlax-ename->vla-object ENT)
       x   (vlax-curve-getParamAtDist curve (/ (len curve) 3.33))
       pt    (vlax-curve-getPointAtParam curve x)
);_获得线上指定距离值的点及参数
(setq JANG (angle '(0 0 0) (vlax-curve-getfirstderiv CURVE X)))
(setq PT1 (polar PT (+ JANG (* 0.5 pi)) 0.00000001))
(setq PT2 (polar PT (- JANG (* 0.5 pi)) 0.00000001))
(command "_.OFFSET" (abs tee_dist) ENT PT1 "")
(if (or (and (> tee_dist 0) (> (LEN CURVE) (LEN (entlast))))
(and (< tee_dist 0) (< (LEN CURVE) (LEN (entlast))))
   )
   (progn
   (entdel (entlast))
   (command "_.OFFSET" (abs tee_dist) ENT PT2 "")
       (command "change" (entlast) "" "p" "c" 4 "")
   )
)
      )
    )
)

;;<<<
;;改变颜色
;;参考http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101254
   ;(command "change" ss "" "p" "c" 4 "")
;;<<<
(setvar "OSMODE" HOLDOSMODE)
(setvar "CMDECHO" HOLDCMD)
(command "_.UNDO" "E")
(princ)
)

阿猪蛋 发表于 2025-9-8 15:06:19

支持原创，支持源码

leecicii 发表于 2025-9-9 15:19:49

谢谢分享，受益匪浅！
页: 1 2 3 [4]
查看完整版本: [原创]批量偏移