3点创建UCS

Lisphk

1. (defun _3PUcs (pt1 pt2 pt3 / Done OS)
   
2.   (setq Done nil
   
3.         OS   (getvar "OSMODE")
   
4.   )
   
5.   (setvar "OSMODE" 0)
   
6.   (if (not pt3)
   
7.     (setq pt3 (polar pt1 (+ (angle pt1 pt2) #pb2) 10.0))
   
8.   )
   
9.   (if (and (> (distance pt1 pt2) 0.001)
   
10.            (> (distance pt1 pt3) 0.001)
    
11.            (> (distance pt2 pt3) 0.001)
    
12.       )
    
13.     (progn (command "._Ucs" "_3Point" pt1 pt2 pt3) (setq Done T))
    
14.   )
    
15.   (setvar "OSMODE" OS)
    
16.   Done
    
17. )
    
18. 
    

(defun _3PUcs (pt1 pt2 pt3 / Done OS)<br />   (setq Done nil<br />         OS   (getvar "OSMODE")<br />   )<br />   (setvar "OSMODE" 0)<br />   (if (not pt3)<br />     (setq pt3 (polar pt1 (+ (angle pt1 pt2) #pb2) 10.0))<br />   )<br />   (if (and (> (distance pt1 pt2) 0.001)<br />            (> (distance pt1 pt3) 0.001)<br />            (> (distance pt2 pt3) 0.001)<br />       )<br />     (progn (command "._Ucs" "_3Point" pt1 pt2 pt3) (setq Done T))<br />   )<br />   (setvar "OSMODE" OS)<br />   Done<br /> )<br /> <br />

/db_自贡黄明儒_

#pb2是什么呀？？？？

marting

/db_自贡黄明儒_ 发表于 2018-3-17 13:46

看代码，没给PT3时候才执行到那，应该是随便一个实数（别是0或者PI的整数倍）就行，计算不在PT1 PT2上的任意点。

dnbcgrass

(setq #pb2 (* 0.5 pi))

kqqt6236

学习了，谢谢！

scnjlwb

多谢分享！

前生

一直要找个不用COmmand  的UCS设置方法，不得其果

kqqt6236

谢谢分享。

yufeng37

感谢楼主提供3点ucs，我最近经常旋转图纸，故将楼主的3点ucs和plan结合，出来的2点转图纸。代码如下，请大家斧正:


(defun c:as ()
  (setq *error*_bak *error*)  
  (setq *osmode_bak (getvar "osmode"))
  (setq *vs (getvar "viewsize"))
  (setvar "osmode" 1023)
  (command "_.undo" "be")
  (setq pt1 (getpoint "选取原点："))
  (setq pt2 (getpoint pt1 "\n 选取X轴上的点："))
  (_3PUcs pt1 pt2 pt3)  
  (setq pt4 (getvar "viewctr"))
  (command "_plan" "C")
  (command "zoom" "c" pt4 *vs)
  (command "_.undo" "end")
  (setvar "osmode" *osmode_bak)
  (setvar "cmdecho" 1)
  (setq *error* *error*_bak)
  (princ)
  )

(defun _3PUcs (pt1 pt2 pt3 / Done OS)
  (setq Done nil
        OS   (getvar "OSMODE")
  )
  (setvar "OSMODE" 0)
  (setq #pb2 (* 0.5 pi))
  (if (not pt3)
    (setq pt3 (polar pt1 (+ (angle pt1 pt2) #pb2) 10.0))
  )
  (if (and (> (distance pt1 pt2) 0.001)
           (> (distance pt1 pt3) 0.001)
           (> (distance pt2 pt3) 0.001)
      )
    (progn (command "._Ucs" "_3Point" pt1 pt2 pt3) (setq Done T))
  )
  (setvar "OSMODE" OS)
  Done
)

(defun *error* (msg)
    (princ "\n 程序错误中断执行！")
    (princ (strcat "\n" "end"))
    (command "_.undo" "end")
    (command "_.undo" "1")
    (setvar "osmode" *osmode_bak)
    (setvar "cmdecho" 1)
    (setq *error* *error*_bak)
    (princ)
  )

(prompt "*******<c:AS>********")
(princ)

1. 
   

复制代码

chwnin

学习了，谢谢。