I'm currently using/testing a trial of 13.1.462.161266.PE+.VC17.x64.CMS131.
Here is an extract of the code that does not work, taken from my Piping add-on.
Code: Select all
(progn
(command "_ucs" "w" "")
(setq WNRFF1 (entlast))
(setq REVOLVEL1 (entlast))
(command "_revolve" WNRFF1 "" "0,0,0" "0,1000,0" "360")
(setq WNRFF2 (entlast))
(command "_erase" WNRFF1 "")
; (command "_ucs" "ZA" P1 P2)
(command "_UCS" "3" "" "100,0,0" "0,0,100");;; THIS IS THE PROBLEM LINE
(command "-layer" "m" "HOLES" "")
(command "-layer" "s" "HOLES" "")
(command "_cylinder" (strcat (rtos (* 0.5 HPCD#)) ",0,0") (* 0.5 HOD#) (rtos LHOD#))
; (command "-layer" "S" "0" "")
; (command "-rotate" "L" "" "0,0" (rtos HOLOS) "")
; (command "-array" "L" "" "P" "0,0" holos# "360" "" "")
; (command "_subtract" WNRFF2 "" (ssget "_x" '((0 . "3DSOLID")(8 . "HOLES"))) "" "")
; (setq WNRFF3 (entlast))
; (command "_UCS" "W" "")
; (command "-block" FLG1 "0,0,0" WNRFF3 "")
; (command "_erase" WNRFF3 "")
) ;end progn
