乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 31|回复： 7

[编程交流] 您好，恢复到WCS？

[复制链接]
andy_lee

27

主题

146

帖子

119

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
137
发表于 2022-7-5 22:34:00 | 显示全部楼层 |阅读模式
嗨，伙计们
 
有时，有些lisp代码无法在“UCS模式”下运行，只能在“WCS”上运行，
如何做？
 
我想，也许可以在开头添加“恢复到WCS”。
 
我需要一些代码。帮助
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 22:46:23 | 显示全部楼层 
  2. (defun c:foo ( / vars... )
  4.  (command "_.ucs" "_w")
  5.  ...
  6.  (etc...)
  7.  ...
  8.  (command "_.ucs" "_p")
  9.  (princ)
  10. )
回复

使用道具 举报

andy_lee

27

主题

146

帖子

119

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
137
发表于 2022-7-5 22:51:38 | 显示全部楼层
 
马尔科。非常感谢。
出现错误时，如何“（命令“.ucs”“\u p”）？
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 22:58:04 | 显示全部楼层
添加：
  1. (command "_.ucs" "_p")
到*error*函数（如果存在），否则定义自己的包含此表达式的局部*error*函数。
 
有关如何定义*错误*函数的更多信息，请参见此处。
回复

使用道具 举报

andy_lee

27

主题

146

帖子

119

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
137
发表于 2022-7-5 23:09:30 | 显示全部楼层
 
谢谢李。我知道，我不能打开那个链接，是吗？http://lee-mac.com/errorhandling.html
回复

使用道具 举报

Dana W

1

主题

597

帖子

599

银币

初来乍到

Rank: 1

铜币
2
发表于 2022-7-5 23:12:36 | 显示全部楼层
 
这就是链接。
回复

使用道具 举报

andy_lee

27

主题

146

帖子

119

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
137
发表于 2022-7-5 23:20:07 | 显示全部楼层
如何添加：
  1. (command "_.ucs" "_p")

这个函数？
 
  1. (defun c:test ( / *error* osm )
  2.  
  3.    (defun *error* ( msg )
  4.        (if osm (setvar 'osmode osm))
  5.        (if (not (member msg '("Function cancelled" "quit / exit abort")))
  6.            (princ (strcat "\nError: " msg))
  7.        )
  8.        (princ)
  9.    )
  11.    (setq osm (getvar 'osmode))
  12.    (setvar 'osmode 0)
  14.    (rtos (getreal "\nPress Esc to exit, press Enter to force an error ..."))
  16.    (setvar 'osmode osm)
  17.    (princ)
  18. )
回复

使用道具 举报

marko_ribar

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 23:26:38 | 显示全部楼层 
  2. (defun c:test ( / *error* osm )
  3.  
  4.    (defun *error* ( msg )
  5.        (if osm (setvar 'osmode osm))
  6.        (if (= (getvar 'worlducs) 1) (command "_.ucs" "_p"))
  7.        (if (not (member msg '("Function cancelled" "quit / exit abort")))
  8.            (princ (strcat "\nError: " msg))
  9.        )
  10.        (princ)
  11.    )
  13.    (setq osm (getvar 'osmode))
  14.    (setvar 'osmode 0)
  15.    (command "_.ucs" "_w")
  17.    (rtos (getreal "\nPress Esc to exit, press Enter to force an error ..."))
  19.    (*error* nil)
  20.    (princ)
  21. )
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-11 06:08 , Processed in 0.484779 second(s), 68 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表