Lisp不工作

broncos15 · 发表于 2022-7-5 18:17:36

我有一个很快的问题，为什么我的Lisp程序程序不起作用。运行以下代码时，我收到错误“error.bad function.0.5”：
奇怪的是，这应该是一个非常简单的例行程序，我不明白为什么我的0.5距离不起作用。

Lee Mac · 发表于 2022-7-5 18:21:19

快速浏览后，更改：

(command "._OffsetFeature" ("0.5" ss pause "0.5" ""))

收件人：

copy

(command "._OffsetFeature" "0.5" ss pause "0.5" "")

broncos15 · 发表于 2022-7-5 18:24:14

谢谢李，我知道这是一个愚蠢的错误。最近我花了很多时间在visual lisp中写作，现在我在AutoLISP中犯了愚蠢的错误哈哈。

broncos15 · 发表于 2022-7-5 18:27:34

因此，当我在这方面做得更多的时候，我决定让用户能够更改其偏移的距离并升高路缘。我很好奇如何制作一个ssget函数，它不只是说“选择对象”，而是做“选择对象或[设置]”，类似于命令行版本对许多不同命令的工作方式。

broncos15 · 发表于 2022-7-5 18:33:04

所以我决定使用entsel函数，尽管它会产生更复杂的if语句。我的问题是，当我输入设置时，我会得到“错误：错误参数类型：consp”设置，如果我选择一条要素线，则表示未选择任何内容。我想知道这是否与我在设置中使用getreal有关，但我不知道为什么我选择要素线时它无法识别。

copy

(defun CheckorGetSurface ()
 (while
   (not
     (and
(setq SurfaceDefaultAdd
       (car
  (entsel
    "\rSelect the Main Surace you to be the default: "
  )
       )
)
(= "AECC_TIN_SURFACE"
   (cdr (assoc 0 (entget SurfaceDefaultAdd)))
)
     )
   )
 )
)
(defun c:makeparkingcurb (/ ss ss1 *error*)
 (defun *error* (msg)
   (if (not
  (member msg '("Function cancelled" "quit / exit abort"))
)
     (princ (strcat "\nError: " msg))
   )
   (princ)
 )
 (if (not SurfaceDefaultAdd)
   (CheckorGetSurface)
 )
 (initget 1 "Settings")
 (setq ss
 (car
   (entsel
     "\n Select the feature line you want to offset [settings]: "
   )
 )
 )
      
 (if ss
   (if (= ss "Settings")
   (progn
     (setq offsetdist (cond ( (getreal "\nOffset Distance <0.5>: ") ) ( "0.5" )))
     (setq offsetheight (cond ( (getreal "\nOffset Distance <0.5>: ") ) ( "0.5" )))
     )
   ) 
   (progn
     (setq entlist (entget ss))
     (if (= "AECC_FEATURE_LINE" (cdr (assoc 0 entlist)))
(progn
  (command "._OffsetFeature" offsetdist ss)
  (princ "\nSpecify side to offset: ")
  (command pause offsetheight "")
  (setq ss1 (entlast))
  (command "._AddSurfaceBreaklines" SurfaceDefaultAdd ss1 "")
)
     )
     (princ "\nNot a feature line")
   )
 )
 (princ "\nNothing selected")
(princ)
)

Hippe013 · 发表于 2022-7-5 18:36:12

你的代码有几件事有点奇怪。如果我能提几个建议。

1.如果您使用的是实体名称，可能您的setq ss应该是setq ent。这使阅读您的代码的人能够快速识别您使用的是实体名称，而不是选择集。

2.Offsetdist和OffsetEight默认不设置。如果我第一次运行这段代码，并且没有运行设置，那么offsetdist为零。

3.您应该循环原始提示，这样，如果您进行设置，它会将您带回原始提示。

4.ss1也应该是ent1。否则，看起来ss1应该是一个选择集，而不是。

Hippe013 · 发表于 2022-7-5 18:38:40

我喜欢使用getcfg和setcfg来存储和检索我的程序默认值。我还将创建一个处理设置的子例程和一个处理选择的子例程。通过这种方式，您可以从设置的末尾调用选择，以提供我所描述的循环。

BIGAL · 发表于 2022-7-5 18:41:53

Civ3D中最难看的事情之一是关闭选择等，所以我写了一个工具栏界面和一个拨号选择保存到工具空间，所以在你的代码上面的拨号将出现允许默认曲面设置的好处是，如果你只有一个曲面，它将设置为defualt，而不需要选择。如果您查看图像，可以看到轮廓作为工具栏项，包括黑色sq关闭的三角形。欢迎使用代码。拉链里有自述文件。

Chtourstolbar。拉链

Lee Mac · 发表于 2022-7-5 18:43:07

（entsel）在选择关键字时返回字符串；在这种情况下，（car（entsel））将出错，因为（car）仅在列表上操作。

broncos15 · 发表于 2022-7-5 18:48:08

Hippe013，非常感谢你的建议。我试图将它们合并到代码中（我忘了添加以检查变量是否已创建，谢谢！）。比格尔，那个工具栏太棒了！李，谢谢你提供关于恩塞尔和汽车的信息。然而，我一直在搞乱代码，现在我得到了错误”；错误：错误的COND语法：（ENT（（…）( ... ) ( ... )) (( ... ) ( ... )) (( ... ) ( ... ) ( ... )))“而且代码不会加载。我对LISP还是很陌生，所以我不知道如何在无法加载的情况下调试代码。我的新代码如下：

copy

(defun CheckorGetSurface ()
 (while
   (not
     (and
(setq SurfaceDefaultAdd
       (car
  (entsel
    "\rSelect the Main Surace you to be the default: "
  )
       )
)
(= "AECC_TIN_SURFACE"
   (cdr (assoc 0 (entget SurfaceDefaultAdd)))
)
     )
   )
 )
)
(defun c:makeparkingcurb (/ ent ent1 *error*)
 (defun *error* (msg)
   (if (not
  (member msg '("Function cancelled" "quit / exit abort"))
)
     (princ (strcat "\nError: " msg))
   )
   (princ)
 )
 (if (not SurfaceDefaultAdd)
   (CheckorGetSurface)
 )
 (if (not *offsetdistans*)
   (setq *offsetdistans* 0.5)
 )
 (if (not *offsetheightans*)
   (setq *offsetheightans* 0.5)
 )
 (setq whilestop t)
 (while whilestop
   (initget 1 "Settings eXit")
   (setq ent (entsel
     "\n Select the feature line you want to offset [settings eXit]: "
   )
   )
   (cond
     ent
     ((= ent "Settings")
      (setq *offsetdistans*
      (cond
 ((getreal "\nOffset Distance" "" (*offsetdistans*) ":")
 )
 (*offsetdistans*)
      )
      )
      (setq *offsetheightans*
      (cond
 ((getreal "\nOffset Distance" "" (*offsetheightans*) ":")
 )
 (*offsetheightans*)
      )
      )
     )
     ((= ent "Settings")
      (setq whilestop nil))
     ((setq entlist (entget ent))
      (cond (= "AECC_FEATURE_LINE" (cdr (assoc 0 entlist)))
   (command "._OffsetFeature" *offsetdistans* ent)
   (princ "\nSpecify side to offset: ")
   (command pause *offsetheightans* "")
   (setq ent1 (entlast))
   (command "._AddSurfaceBreaklines" SurfaceDefaultAdd ent1 "")
      )
      (princ "\nNot a feature line")
     )
   )
 )
 (princ "\nNothing selected")
 (princ)
)

[编程交流] Lisp不工作

发表回复

精选推荐