topic Re: Place Rev Cloud with LSP in Visual LISP, AutoLISP and General Customization Forum

Place Rev Cloud with LSP

cslatteryAXGRE — Wed, 16 Aug 2023 12:48:46 GMT

I have an older LSP for placing the Rev Cloud. When using it and checking properties on the Rev Cloud, there is no option to change the arc length after it is placed like there is if the Rev Cloud tool was used. Does anyone have any ideas on how to do it so the arc length appears in the properties dialog or on the right click menu?

This is for a rectangular cloud.

(defun C:RCR ()
(initcommandversion 2)
(setvar "revcloudcreatemode" 1)
(command "revcloud" "S" "N" "A" ".25" "")
;;;Pause for user input:
(while (= (logand (getvar "cmdactive") 1) 1)
(prompt "\nDraw RevCloud\n")
(command pause)
)
;;;end of Pause
(command "Pedit" "_L" "_w" ".03125" "")
(c:StpRevLayer)
(princ)
)

Re: Place Rev Cloud with LSP

komondormrex — Wed, 16 Aug 2023 13:12:17 GMT

check this correction, works for me.

(defun C:RCR () (initcommandversion) (setvar "revcloudcreatemode" 1) (command "revcloud" "S" "N" "A" ".25") ;;;Pause for user input: (while (= (logand (getvar "cmdactive") 1) 1) (prompt "\nDraw RevCloud\n") (command pause) ) ;;;end of Pause (command "Pedit" "_L" "_w" ".03125" "") (c:StpRevLayer) (princ) )

Re: Place Rev Cloud with LSP

cslatteryAXGRE — Wed, 16 Aug 2023 13:19:13 GMT

That did it. Thanks.