命名UCS和计划一体化

skipsophrenic · 发表于 2022-7-6 12:21:25

大家好，

我正在编写一些代码来帮助解决我的工作量，
很多时候我都在为大计划工作，所以
我命名ucs是为了让生活更轻松。

问题是，我已经编写了下面发布的代码，但它没有
似乎有效-有人能告诉我哪里错了吗？


;*******************************************************************
;*******************************************************************
;**                                                               **
;**                  THIS ROUTINE IS FOR RESTORING                **
;**                  A NAMED UCS AND RUNNING THE                  **
;**                  PLAN COMMAND AT THE SAME TIME                **
;**                                                               **
;**                                                               **
;**                  (C) PETER SMITH 03-02-2009                   **
;**                  PROVIDED FOR USE BY ALL PLEASE               **
;**                  INCLUDE THIS HEADER WHEN COPYING             **
;**                                                               **
;** CONTACT TO REPORT PROBLEMS: skipsophrenic@hotmail.com         **
;**                                                               **
;*******************************************************************
;*******************************************************************
defun c:ucsplan () ;defined function
           (command "ucs" "na" "re") ;runs the ucs restore option
                       (getstring "\nName of ucs:") ;asks for the name of the ucs wanted
           (command "Plan" "C") runs the plan command and set's it to current ucs
)
(princ)

CarlB · 发表于 2022-7-6 12:25:27

也许是这样：

（命令“ucs”“na”“re”暂停）

所以你不需要“getstring”，我认为这个问题是独立的。

Lee Mac · 发表于 2022-7-6 12:28:48

不确定为什么是“na”，但可能：

copy


(defun c:ucsplan (/ uNm)
 (if (and (setq uNm (getstring t "\nSpecify Name of UCS: "))
      (tblsearch "UCS" uNm))
   (progn
     (command "_ucs" "Re" uNm)
     (command "_plan" "c"))
   (princ "\nUCS Name not Found. "))
 (princ))

Lee Mac · 发表于 2022-7-6 12:33:02

卡尔，08年ACAD的UCS提示不同吗？

为什么需要“na”？

skipsophrenic · 发表于 2022-7-6 12:34:31

为了说明我想输入一个我之前保存的命名ucs-现在刚刚关闭以测试代码

Lee Mac · 发表于 2022-7-6 12:38:10

六羟甲基三聚氰胺六甲醚。。。在04年，我只需键入“UCS”“RE”，然后键入UCS的名称。。。。它恢复了它。。。

skipsophrenic · 发表于 2022-7-6 12:40:57

测试并不断获得以下信息：

命令：\u appload ucsplan。lsp已成功加载。
命令：ucsplan
未知命令“UCSPLAN”。按F1键获取帮助。

CarlB · 发表于 2022-7-6 12:46:09

李，
是的，2008年的提示有所不同：

命令：ucs
当前ucs名称：xxx
指定UCS或[Face/NAmed/OBject/Previous/View/World/X/Y/Z/ZAxis]的原点
：不适用
输入选项[还原/保存/删除/？]：r
输入要恢复的UCS的名称或[？]：

uddfl · 发表于 2022-7-6 12:48:38

你的标题比你的常规有更多的行。对不起，我不得不这么说。

Lee Mac · 发表于 2022-7-6 12:51:48

谢谢Carl：

copy


(defun c:ucsplan (/ uNm)
 (if (and (setq uNm (getstring t "\nSpecify Name of UCS: "))
      (tblsearch "UCS" uNm))
   (progn
     (command "_ucs" "NA" "R" uNm)
     (command "_plan" "c"))
   (princ "\nUCS Name not Found. "))
(princ))

[编程交流] 命名UCS和计划一体化

发表回复

精选推荐