[日积月累]：^_^发现一个命令，双向偏移，用于弧，曲线，圆，直线等任意形状

coco25825 · 发表于 2008-9-23 18:38:44

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

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

×

键入命令“DOF”，可以双向偏移，输入偏移值即可，可以画墙线，不错a !

qjcpj · 发表于 2008-9-24 13:30:46

命令: dof
未知命令“DOF”。按 F1 查看帮助。
???

coco25825 · 发表于 2008-9-25 18:14:05

sorry,程序是：
(defun c:DOF (/ a b b1 p1 d pckbox)
(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line " ")
(if(= #parof nil)(setq #parof(/(getvar "viewsize")10)))
(princ "\nCurrent offset <")(princ #parof)
(setq answer(getstring ">: "))
(if (/= (atof answer) 0.0)(setq #parof(atof answer)))

(princ line)
(setvar "pickbox" pckbox)
(setq ent(entsel "\nPick the line: "))
(setvar "pickbox" 2)
(setq point(cadr ent))
(princ line)
 (setq side(getpoint "\nPick an offset side: "))
(setq dist(distance side point))(setq ang(angle side point))
(if(or(or(< ang 0.78)(> ang 5.5))(and(> ang 2.35)(< ang 3.92)))
(setq ang(- 0 ang))(setq ang(- pi ang))
);end if
(setq other(polar point ang dist))
(command "offset" #parof ent side ent other "")
 (entdel(car ent))

(setvar "pickbox" pckbox)
(prin1)
)
(Prompt "\nType DOF to envoke the command")

zx0sl · 发表于 2008-9-26 11:14:56

哈哈，好，先下回去看看再说

monkey12 · 发表于 2008-9-29 14:09:02

感谢楼主分享!

leeyuan · 发表于 2008-11-20 09:39:04

还以为是CAD自带的呐

c3a139 · 发表于 2008-11-20 11:38:59

感谢楼主分享!

leeyuan · 发表于 2008-11-20 17:01:50

还以为是CAD自带的呐

predestinate · 发表于 2008-11-20 21:24:19

今天收获丰富啊：）

nyfzh · 发表于 2008-12-17 15:53:05

谢谢楼主分享！

kmdz · 发表于 2008-12-28 16:44:36

原始的线被删除了.

lmt112233 · 发表于 2008-12-28 19:48:34

原始的线可否保留

taner · 发表于 2008-12-29 14:09:50

[FONT=courier new]
;;; ==================================================================
(defun c:test (/ di ss sslst)
(princ "\n一次雙向偏移多個實體.")
(setq di (vlax-ldata-get "mydict" "di"))
(setq di (udist 3 "" "\n请输入偏移距离" di nil))
(vlax-ldata-put "mydict" "di" di)
(if (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))
(progn
(setq sslst (hao-ss2lst ss))
(foreach n sslst
(txt-offset (vlax-ename->vla-object n) di)
(txt-offset (vlax-ename->vla-object n) (* di -1))
)
)
)
(princ)
)
;;; ==================================================================
(defun hao-ss2lst (ss / n l)
(if (and
ss
(< 0 (sslength ss))
)
(repeat (setq n (sslength ss))
(setq n (1- n)
l (cons (ssname ss n) l)
)
)
)
)
(defun txt-offset (obj dst / tmplst)
(if (not (vl-catch-all-error-p (setq tmplst (vl-catch-all-apply 'vlax-invoke
(list obj 'offset
dst
)
)
)
)
)
tmplst
)
)
(defun udist (bit kwd msg def bpt / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def) ">:")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ":"))
)
(initget bit kwd)
(setq inp (if bpt
(getdist msg bpt)
(getdist msg)
)
)
(if inp
inp
def
)
)
;;; ==================================================================
[/FONT]

[FONT=courier new] 
;;; ================================================================== 
(defun c:test (/ di ss sslst) 
  (princ "\n一次雙向偏移多個實體.") 
  (setq di (vlax-ldata-get "mydict" "di")) 
  (setq di (udist 3 "" "\n请输入偏移距离" di nil)) 
  (vlax-ldata-put "mydict" "di" di) 
  (if (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line")))) 
    (progn 
      (setq sslst (hao-ss2lst ss)) 
      (foreach n sslst 
        (txt-offset (vlax-ename->vla-object n) di) 
        (txt-offset (vlax-ename->vla-object n) (* di -1)) 
      ) 
    ) 
  ) 
  (princ) 
) 
;;; ================================================================== 
(defun hao-ss2lst (ss / n l) 
  (if (and 
        ss 
        (< 0 (sslength ss)) 
      ) 
    (repeat (setq n (sslength ss)) 
      (setq n (1- n) 
            l (cons (ssname ss n) l) 
      ) 
    ) 
  ) 
) 
(defun txt-offset (obj dst / tmplst) 
  (if (not (vl-catch-all-error-p (setq tmplst (vl-catch-all-apply 'vlax-invoke 
                                                                  (list obj 'offset 
                                                                        dst 
                                                                  ) 
                                              ) 
                                 ) 
           ) 
      ) 
    tmplst 
  ) 
) 
(defun udist (bit kwd msg def bpt / inp) 
  (if def 
    (setq msg (strcat "\n" msg "<" (rtos def) ">:") 
          bit (* 2 (fix (/ bit 2))) 
    ) 
    (setq msg (strcat "\n" msg ":")) 
  ) 
  (initget bit kwd) 
  (setq inp (if bpt 
              (getdist msg bpt) 
              (getdist msg) 
            ) 
  ) 
  (if inp 
    inp 
    def 
  ) 
) 
;;; ================================================================== 
  [/FONT]

xyp1964 · 发表于 2008-12-29 23:05:37

双向偏移实例：

coco25825 · 发表于 2009-12-8 21:37:52

taner的命令好

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

[日积月累]：^_^发现一个命令，双向偏移，用于弧，曲线，圆，直线等任意形状

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

相关帖子