API应用折线模拟斜线

st788796 · 发表于 2013-12-1 00:21:01

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

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

×

(defun c:tt (/ e n v ptl sp0)
(if (and (setq e (car (xdrx_entsel "\nPick line: " '((0 . "line")))))
(not
(zerop (rem (xdrx_getpropertyvalue e "Angle") (* pi 2)))
)
(setq n (getint "\Divid Num: "))
)
(progn
(mapcar 'set '(sp ep) (xdrx_entity_getstretchpoint e))
(setq v (mapcar '(lambda (x) (/ x n)) (mapcar '- ep sp))
sp0 sp
)
(repeat n
(setq ptl (cons (setq sp (mapcar '+ sp (list (car v) 0. 0.))) ptl)
ptl (cons (setq sp (mapcar '+ sp (list 0. (cadr v) 0.))) ptl)
)
)
(apply 'xdrx_polyline_make (cons sp0 (reverse ptl)))
)
(princ "\nNot need Simulation or Not Slash!")
)
(princ)
)

st788796 · 发表于 2013-12-1 08:08:29

往上偏移一半

(defun c:tt (/ e n v ptl v v+ v- nsp nep i dis )
(if (and (setq e (car (xdrx_entsel "\nPick line: " '((0 . "line")))))
(not
(zerop (rem (xdrx_getpropertyvalue e "Angle") (* pi 2)))
)
(setq n (getint "\nDivid Num: "))
)
(progn
(mapcar 'set '(sp ep) (xdrx_entity_getstretchpoint e))
(setq v (mapcar '(lambda (x) (/ x n)) (mapcar '- ep sp))
v+ (list 0. (* (cadr v) 0.5) 0.)
v- (list 0. (- (* (cadr v) 0.5)) 0.)
nsp (mapcar '+ sp v+)
nep (mapcar '+ ep v-)
i 1
dis (/ (distance sp ep) n)
an (angle sp ep)
)
(repeat (1- n)
(setq ptl (cons (polar sp an (* i dis)) ptl)
i (1+ i)
)
)
(setq ptl (mapcar '(lambda (x)
(list (mapcar '+ x v+)
(mapcar '+ x v-)
)
)
ptl
)
ptl (apply 'append ptl)
)
(apply 'xdrx_polyline_make
(cons sp (cons nsp (reverse (cons ep (cons nep ptl)))))
)
)
(princ "\nNot need Simulation or Not Slash!")
)
(princ)
)

(defun c:tt (/ e n v ptl v v+ v- nsp nep i dis ) 
  (if (and (setq e (car (xdrx_entsel "\nPick line: " '((0 . "line"))))) 
           (not 
             (zerop (rem (xdrx_getpropertyvalue e "Angle") (* pi 2))) 
           ) 
           (setq n (getint "\nDivid Num: ")) 
      ) 
    (progn 
      (mapcar 'set '(sp ep) (xdrx_entity_getstretchpoint e)) 
      (setq v        (mapcar '(lambda (x) (/ x n)) (mapcar '- ep sp)) 
            v+        (list 0. (* (cadr v) 0.5) 0.) 
            v-        (list 0. (- (* (cadr v) 0.5)) 0.) 
            nsp        (mapcar '+ sp v+) 
            nep        (mapcar '+ ep v-) 
            i        1 
            dis        (/ (distance sp ep) n) 
            an        (angle sp ep) 
      ) 
      (repeat (1- n) 
        (setq ptl (cons (polar sp an (* i dis)) ptl) 
              i          (1+ i) 
        ) 
      ) 
      (setq ptl        (mapcar        '(lambda (x) 
                           (list (mapcar '+ x v+) 
                                 (mapcar '+ x v-) 
                           ) 
                         ) 
                        ptl 
                ) 
            ptl        (apply 'append ptl) 
      ) 
      (apply 'xdrx_polyline_make 
             (cons sp (cons nsp (reverse (cons ep (cons nep ptl))))) 
      ) 
    ) 
    (princ "\nNot need Simulation or Not Slash!") 
  ) 
  (princ) 
)

Lisphk · 发表于 2013-12-1 11:14:21

哦，画台阶啊，每步的踏步高怎么定的呢？

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

[教学] API应用 折线模拟斜线

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

[教学] API应用折线模拟斜线