help me, lisp :offset, chamfer

black_coffee · 发表于 2022-7-5 20:21:43

dear all
i have problem, i need a lisp offset + chamfer + fillet .
- when type "offtim'' lisp ask:
* distance B=? ( user type )
* distance C=? ( user type )
and lisp save elevation B,C.if user dont change elevation B,C in next time.
Then lisp auto offset (line,pline,splnie...) both sides. and creat 2 new layer: " traffic_1" and " traffic_2"
- When type" Chamfer1" lisp ask:
* length D=?( user type) and lisp save elevation D, if dont change elevation D.
then lisp can select all object layer " traffic_2" (line,pline,spline..)
- when type"fillet1" lisp ask:
* Radius R=?(user type) and lisp save elevation R, if dont change elevation R.
then lisp can select all object with layer "traffic_1"
i upload file autocad example :
----> download : https://drive.google.com/file/d/0Byc97xrTLGbqRXRINmN1NEF4LVU/view?usp=sharing
I hope everyone help me thanks all

BIGAL · 发表于 2022-7-5 21:32:20

Here is your B & C check just modify as required, note to reset you need to do manually (setq horiz nil) will only ask once per Autocad session.

copy

(if (= horiz nil)   (progn (setq horiz 100)   (prompt "\nEnter Horizontal scale  ::")   (setq newhoriz (getreal))                    (if (= newhoriz nil)  (PRINC "\N")  (setq horiz newhoriz)         )   ); progn horiz) ; if horiz(if (= vert nil)   (progn (setq vert 50)   (prompt "\nEnter Vertical scale::")   (setq newvert (getreal))   (if (= newvert nil)     (setq vert vert)     (setq vert newvert)   )   ))

[编程交流] help me, lisp :offset, chamfer

发表回复

精选推荐