help me, lisp :offset, chamfer
dear alli 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 objectlayer " 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 methanks all Here is your B & C checkjust modify as required, note to reset you need to do manually (setq horiz nil) will only ask once per Autocad session.
(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) ) ))
页:
[1]