本帖最后由 pzweng 于 2020-9-8 13:44 编辑
昨天因这个问题研究了下ucsbase,深度这个值我昨天试了但没注意到原点这个选项,昨天以手动方式解决了楼主的问题,其步骤与下面代码一致,刚刚整理好了代码
 - (defun c:tt1 nil
- (setq $wcs "$wcs")
- (setvar 'cmdecho 0)
- (command ".ucs" "w")
- (command ".ucs" "s" $wcs)
- (setvar 'ucsbase $wcs)
- (command ".ucs" "w")
- ;;; (entdel (tblobjname "UCS" $wcs)) ;只能手动方式删除,ucsman命中找到"$WCS"右键删除,之后所有原点都与WCS相同
- (setvar 'cmdecho 1)
- (princ)
- )
|