entmake - why "too few argumen

teknomatika · 发表于 2022-7-6 06:34:55

Why "too few arguments"?

(defun c:mci (cp)(setq cp (getpoint "\nCenter point:"))(entmake         (list(cons 0 "CIRCLE");;Entity(cons 62 5);;Color(cons 10 cp);;Center point(cons 40 2);;Radius))(princ))

Tharwat · 发表于 2022-7-6 06:50:52

copy

(defun c:mci ([color=blue][b]/[/b][/color] cp)

marko_ribar · 发表于 2022-7-6 06:55:50

You defined function as it requires argument (cp) and c:mci is defined as command function so you can't supply that argument, for as soon as you execute it in standard way like any other command with Command: mci, no argument is passed to function... So change line (defun c:mci (cp) to (defun c:mci ( / cp ) as like you've written later in function parameter cp is variable user supplies while function runs... So cp isn't argument but variable that needs to be localized...

MSasu · 发表于 2022-7-6 07:06:35

I believe you were looking to localize the variables, not to have an argument (also, not valid for commands, only for functions):

copy

(defun c:mci ( [color=red]/[/color] cp)...

teknomatika · 发表于 2022-7-6 07:13:25

Thank you both. I appreciate your explanation.

Lee Mac · 发表于 2022-7-6 07:19:04

In addition to the above suggestions, you can also marginally improve the efficiency of your code by quoting expressions which need not be evaluated, e.g.:

copy

([color=BLUE]defun[/color] c:mci ( [color=BLUE]/[/color] cp zv )   ([color=BLUE]setq[/color] zv ([color=BLUE]trans[/color] '(0.0 0.0 1.0) 1 0 [color=BLUE]t[/color])) [color=GREEN];; WCS Extrusion vector of UCS plane[/color]   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] cp ([color=BLUE]getpoint[/color] [color=MAROON]"\nCenter: "[/color])) [color=GREEN];; Center point in UCS[/color]       ([color=BLUE]entmake[/color]           ([color=BLUE]list[/color]              '(00 . [color=MAROON]"CIRCLE"[/color]) [color=GREEN];; Entity Type[/color]              '(62 . 5) [color=GREEN];; Colour[/color]               ([color=BLUE]cons[/color] 10 ([color=BLUE]trans[/color] cp 1 zv)) [color=GREEN];; Center point in OCS[/color]              '(40 . 2.0) [color=GREEN];; Radius[/color]               ([color=BLUE]cons[/color] 210 zv) [color=GREEN];; Extrusion Vector in WCS[/color]           )       )   )   ([color=BLUE]princ[/color]))

I have also ensured the program will perform correctly in all UCS construction planes.