社区 › Auto Lisp › 命名UCS和计划一体化

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

命名UCS和计划一体化

大家好，
 
我正在编写一些代码来帮助解决我的工作量，
很多时候我都在为大计划工作，所以
我命名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”，但可能：
 

(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或的原点
：不适用
输入选项[还原/保存/删除/？]：r
输入要恢复的UCS的名称或[？]：

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

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

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

 
谢谢Carl：
 

(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和计划一体化