Page 1 of 1

Problems controlling UCS from Lisp

Posted: Wed Mar 05, 2025 1:17 am
by sln8458
When trying to redefine the UCS within lisp the change does not work, though the same code worked in earlier version.
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

Re: Problems controlling UCS from Lisp

Posted: Wed Mar 05, 2025 10:10 am
by SPirou4D
Steve on my v13.1 your script don't have problem with :
(command "_UCS" "3" "" "100,0,0" "0,0,100");;; THIS IS THE PROBLEM LINE

The UCS is ok!

Re: Problems controlling UCS from Lisp

Posted: Wed Mar 05, 2025 10:35 am
by sln8458
Hi Pat.
Can you try inserting this flange and get back pls
In my version, it's very bad !! :(
ucs issue.png
ucs issue.png (54.43 KiB) Viewed 13227 times

Re: Problems controlling UCS from Lisp

Posted: Wed Mar 05, 2025 11:32 am
by SPirou4D
is this the one?
2025-03-05 18 31 30.png
2025-03-05 18 31 30.png (28.2 KiB) Viewed 13225 times
-
No problem on my Icad v13.1.462.161266.PE+ french ! It's rather reassuring, isn't it?
-
2025-03-05 18 34 04.png
2025-03-05 18 34 04.png (10.93 KiB) Viewed 13224 times
_
_
Why a trial of 13.1.462.161266.PE+ ?

Re: Problems controlling UCS from Lisp

Posted: Wed Mar 05, 2025 11:38 am
by sln8458
Thank Pat.

Why a trial of 13.1.462.161266.PE+ ?
I am just testing it out, downloaded an update earlier today, so will install that and see if things work any better ????

Re: Problems controlling UCS from Lisp

Posted: Wed Mar 05, 2025 11:40 am
by SPirou4D
I was wondering, I wished you a happy new year 2025 but no answer???

Re: Problems controlling UCS from Lisp

Posted: Wed Mar 05, 2025 1:40 pm
by sln8458
SPirou4D wrote:
Wed Mar 05, 2025 11:40 am
I was wondering, I wished you a happy new year 2025 but no answer???
Sorry Pat, I should have replied, my bad.
Family stuff distracted me, no excuse :oops:

Re: Problems controlling UCS from Lisp

Posted: Thu Mar 06, 2025 5:14 am
by sln8458
Problem solved after update.

Re: Problems controlling UCS from Lisp

Posted: Thu Mar 06, 2025 5:42 am
by SPirou4D
Ok all is ok !