关联列表

samifox · 发表于 2022-7-6 06:45:43

你好
我的代码执行以下操作

[列表=1]

向用户询问a、b点

向用户询问a b c d行

返回包含所有用户输入的关联列表
[/列表]
我看了veritable userData，我得到了20个条目，而我希望有7个。

有人能解释为什么吗？


(defun main()
 (setq userData (wl:getUserData))
 )
(defun wl:getUserData (/ strpt endpt)
 (if (setq strpt (getpoint "\nStart point of path: "))
   (if    (setq endpt (getpoint strpt "\nEndpoint of path: "))
   (progn
     (setq wall (getPoly wall "\nSelect Wall eleveation line"))
     (setq front (getPoly front "\nSelect Front eleveation line"))
     (setq back (getPoly back "\nSelect Back eleveation line"))
     (setq exist (getPoly exist "\nSelect Exist eleveation line"))
     (list
      cons 10 strpt
      cons 11 endpt
      cons 41 (distance strpt endpt)
      cons 51 wall
      cons 52 front
      cons 53 back
      cons 54 exist
     ) ;_list
       
     );_progn
   ) ;_if endpt
 ) ;_if strp
) ;_defun
(defun getPoly (ent msg)
(if (setq ent (car (entsel msg)))
   (if    (eq (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
   (princ)
   ) ;_if
 ) ;_if
 ent
)

谢谢
谢伊

Lee Mac · 发表于 2022-7-6 06:55:23

您的wl:getUserData函数将返回一个包含21项的列表，因为您为list函数提供了21个参数，可以从中构造列表：
似乎缺少几个表达式：
还要注意，无论用户是否选择LWPolyline或任何其他对象，getPoly函数都将返回实体名称：
该函数的ent参数也是冗余的，因为它立即被重新定义为局部变量。

此外，请注意，如果用户未能选择对象，则各种“getPoly”表达式将返回nil，从而导致变量wall、front、back、exist包含null值。

copy