The latest version is 10.0.1491.119529.PE+
Re: Error saving and exit
- Forum: General
- Topic: Error saving and exit
- Replies: 4
- Views: 153
- Sat Apr 17, 2021 10:13 pm
- Jump to post
Code: Select all
(defun C:FMP ; = Fillet Multiple Polylines
(/ plss n)
(if (setq plss (ssget '((0 . "LWPOLYLINE"))))
(repeat (setq n (sslength plss))
(command "_.fillet" "_polyline" (ssname plss (setq n (1- n))))
); repeat
); if
(princ)
); defun
Code: Select all
; Ring Type Joint Face Blind
(defun RTJBLD (/ RTJBLD:FOD$ RTJBLD:FTHK RTJBLD:RTJD$ RTJBLD:RTJTHK$ RTJBLD:HOL$ RTJBLD:HPCD$ INPT IANG BLD1 insertscal)
...