(defun c:dii ( / x1 y1 z1 x2 y2 z2 x1w y1w z1w x2w y2w z2w p1 p2 d ducs dx dy dz v dxw dyw dzw w ax vprim vprimd axy stringid1 stringid1w stringid2 stringid2w string1 string2 string3 string4 string5 string6 string7 string8 string9 string10 alertstring )
(while (not p1) (setq p1 (getpoint "\nPick or specify start point : ")))
(while (not p2) (setq p2 (getpoint p1 "\nPick or specify end point : ")))
(setq d (distance p1 p2))
(grdraw p1 p2 6 1)
(setq dx (car (setq v (mapcar '- p2 p1))))
(setq dy (cadr v))
(setq ducs (sqrt (+ (* dx dx) (* dy dy))))
(setq dz (caddr v))
(setq dxw (car (setq w (mapcar '- (trans p2 1 0) (trans p1 1 0)))))
(setq dyw (cadr w))
(setq dzw (caddr w))
(setq ax (cvunit (atan dy dx) "radians" "degrees"))
(setq vprim (list (car v) (cadr v) 0.0))
(setq vprimd (distance '(0.0 0.0 0.0) vprim))
(setq axy (cvunit (atan (caddr v) vprimd) "radians" "degrees"))
(setq x1 (car p1)
y1 (cadr p1)
z1 (caddr p1)
)
(setq x2 (car p2)
y2 (cadr p2)
z2 (caddr p2)
)
(setq x1w (car (trans p1 1 0))
y1w (cadr (trans p1 1 0))
z1w (caddr (trans p1 1 0))
)
(setq x2w (car (trans p2 1 0))
y2w (cadr (trans p2 1 0))
z2w (caddr (trans p2 1 0))
)
(prompt "\n\nID pt1 in UCS : (")(princ (rtos x1 2 50))(prompt " ")(princ (rtos y1 2 50))(prompt " ")(princ (rtos z1 2 50))(prompt ")")
(prompt "\nID pt1 in WCS : (")(princ (rtos x1w 2 50))(prompt " ")(princ (rtos y1w 2 50))(prompt " ")(princ (rtos z1w 2 50))(prompt ")")
(prompt "\n\nID pt2 in UCS : (")(princ (rtos x2 2 50))(prompt " ")(princ (rtos y2 2 50))(prompt " ")(princ (rtos z2 2 50))(prompt ")")
(prompt "\nID pt2 in WCS : (")(princ (rtos x2w 2 50))(prompt " ")(princ (rtos y2w 2 50))(prompt " ")(princ (rtos z2w 2 50))(prompt ")")
(prompt "\n\nDistance 2D in UCS : ")(princ (rtos ducs 2 50))
(prompt "\n\nDX in UCS : ")(princ (rtos dx 2 50))
(prompt "\nDY in UCS : ")(princ (rtos dy 2 50))
(prompt "\nDZ in UCS : ")(princ (rtos dz 2 50))
(prompt "\n\nDistance 3D : ")(princ (rtos d 2 50))
(prompt "\n\nDX in WCS : ")(princ (rtos dxw 2 50))
(prompt "\nDY in WCS : ")(princ (rtos dyw 2 50))
(prompt "\nDZ in WCS : ")(princ (rtos dzw 2 50))
(prompt "\n\nAngle around Z axis from X axis as 0.0 degree reference : ")(princ (rtos ax 2 50))(prompt " degrees")
(prompt "\nAngle of picked points vector to XY plane : ")(princ (rtos axy 2 50))(prompt " degrees")
(setq stringid1 (strcat "\nID pt1 in UCS : "(rtos x1 2 50) "," (rtos y1 2 50) "," (rtos z1 2 50)))
(setq stringid1w (strcat "\nID pt1 in WCS : "(rtos x1w 2 50) "," (rtos y1w 2 50) "," (rtos z1w 2 50)))
(setq stringid2 (strcat "\n\nID pt2 in UCS : "(rtos x2 2 50) "," (rtos y2 2 50) "," (rtos z2 2 50)))
(setq stringid2w (strcat "\nID pt2 in WCS : "(rtos x2w 2 50) "," (rtos y2w 2 50) "," (rtos z2w 2 50)))
(setq string1 (strcat "\n\nDistance 2D in UCS : " (rtos ducs 2 50)))
(setq string2 (strcat "\n\nDX in UCS : " (rtos dx 2 50)))
(setq string3 (strcat "\nDY in UCS : " (rtos dy 2 50)))
(setq string4 (strcat "\nDZ in UCS : " (rtos dz 2 50)))
(setq string5 (strcat "\n\nDistance 3D : " (rtos d 2 50)))
(setq string6 (strcat "\n\nDX in WCS : " (rtos dxw 2 50)))
(setq string7 (strcat "\nDY in WCS : " (rtos dyw 2 50)))
(setq string8 (strcat "\nDZ in WCS : " (rtos dzw 2 50)))
(setq string9 (strcat "\n\nAngle around Z axis from X axis as 0.0 degree reference : " (rtos ax 2 50) " degrees"))
(setq string10 (strcat "\nAngle of picked points vector to XY plane : " (rtos axy 2 50) " degrees"))
(setq alertstring (strcat stringid1 stringid1w stringid2 stringid2w string1 string2 string3 string4 string5 string6 string7 string8 string9 string10))
(alert alertstring)
(princ)
)
我希望你会发现它们像我一样有用。。。
M、 R。 对谢谢你。你的工作相当准确。我想添加一个grtexr函数，在dz>0.000的情况下提供用户反馈，作为红色警告。似乎是一个日常使用的好主意。可能有一些小瑕疵，但会设法在屏幕上显示一些内容。。我会回来的。
干杯 大家好，我现在添加了OCS信息数据，我认为在使用（c:IDD）时，这些数据更重要。。。
(defun c:dii ( / x1 y1 z1 x2 y2 z2 x1w y1w z1w x2w y2w z2w x1o y1o z1o x2o y2o z2o p1 p2 d ducs docs dwcs dx dy dz v dxw dyw dzw w dxo dyo dzo ax vprim vprimd axy ocs stringid1 stringid1w stringid1o stringid2 stringid2w stringid2o string1 string2 string3 string4 string5 string6 string7 string8 string9 string10 string11 string12 string13 string14 string15 alertstring )
(while (not p1) (setq p1 (getpoint "\nPick or specify start point : ")))
(while (not p2) (setq p2 (getpoint p1 "\nPick or specify end point : ")))
(setq d (distance p1 p2))
(grdraw p1 p2 6 1)
(setq dx (car (setq v (mapcar '- p2 p1))))
(setq dy (cadr v))
(setq ducs (sqrt (+ (* dx dx) (* dy dy))))
(setq dz (caddr v))
(setq ocs (trans '(0.0 0.0 1.0) 1 0 t))
(setq dxo (car (mapcar '- (trans p2 1 ocs) (trans p1 1 ocs))))
(setq dyo (cadr (mapcar '- (trans p2 1 ocs) (trans p1 1 ocs))))
(setq dzo (caddr (mapcar '- (trans p2 1 ocs) (trans p1 1 ocs))))
(setq docs (sqrt (+ (* dxo dxo) (* dyo dyo))))
(setq dxw (car (setq w (trans v 1 0))))
(setq dyw (cadr w))
(setq dzw (caddr w))
(setq dwcs (sqrt (+ (* dxw dxw) (* dyw dyw))))
(setq ax (cvunit (atan dy dx) "radians" "degrees"))
(setq vprim (list (car v) (cadr v) 0.0))
(setq vprimd (distance '(0.0 0.0 0.0) vprim))
(setq axy (cvunit (atan (caddr v) vprimd) "radians" "degrees"))
(setq x1 (car p1)
y1 (cadr p1)
z1 (caddr p1)
)
(setq x2 (car p2)
y2 (cadr p2)
z2 (caddr p2)
)
(setq x1w (car (trans p1 1 0))
y1w (cadr (trans p1 1 0))
z1w (caddr (trans p1 1 0))
)
(setq x2w (car (trans p2 1 0))
y2w (cadr (trans p2 1 0))
z2w (caddr (trans p2 1 0))
)
(setq x1o (car (trans p1 1 ocs))
y1o (cadr (trans p1 1 ocs))
z1o (caddr (trans p1 1 ocs))
)
(setq x2o (car (trans p2 1 ocs))
y2o (cadr (trans p2 1 ocs))
z2o (caddr (trans p2 1 ocs))
)
(prompt "\n\nID pt1 in UCS : (")(princ (rtos x1 2 50))(prompt " ")(princ (rtos y1 2 50))(prompt " ")(princ (rtos z1 2 50))(prompt ")")
(prompt "\nID pt1 in WCS : (")(princ (rtos x1w 2 50))(prompt " ")(princ (rtos y1w 2 50))(prompt " ")(princ (rtos z1w 2 50))(prompt ")")
(prompt "\nID pt1 in OCS : (")(princ (rtos x1o 2 50))(prompt " ")(princ (rtos y1o 2 50))(prompt " ")(princ (rtos z1o 2 50))(prompt ")")
(prompt "\n\nID pt2 in UCS : (")(princ (rtos x2 2 50))(prompt " ")(princ (rtos y2 2 50))(prompt " ")(princ (rtos z2 2 50))(prompt ")")
(prompt "\nID pt2 in WCS : (")(princ (rtos x2w 2 50))(prompt " ")(princ (rtos y2w 2 50))(prompt " ")(princ (rtos z2w 2 50))(prompt ")")
(prompt "\nID pt2 in OCS : (")(princ (rtos x2o 2 50))(prompt " ")(princ (rtos y2o 2 50))(prompt " ")(princ (rtos z2o 2 50))(prompt ")")
(prompt "\n\nDistance 2D projection in UCS plane : ")(princ (rtos ducs 2 50))
(prompt "\n\nDX in UCS : ")(princ (rtos dx 2 50))
(prompt "\nDY in UCS : ")(princ (rtos dy 2 50))
(prompt "\nDZ in UCS : ")(princ (rtos dz 2 50))
(prompt "\n\nDistance 2D projection in WCS plane : ")(princ (rtos dwcs 2 50))
(prompt "\n\nDX in WCS : ")(princ (rtos dxw 2 50))
(prompt "\nDY in WCS : ")(princ (rtos dyw 2 50))
(prompt "\nDZ in WCS : ")(princ (rtos dzw 2 50))
(prompt "\n\nDistance 2D projection in OCS plane : ")(princ (rtos docs 2 50))
(prompt "\n\nDX in OCS : ")(princ (rtos dxo 2 50))
(prompt "\nDY in OCS : ")(princ (rtos dyo 2 50))
(prompt "\nDZ in OCS : ")(princ (rtos dzo 2 50))
(prompt "\n\nDistance 3D : ")(princ (rtos d 2 50))
(prompt "\n\nAngle around Z axis from X axis as 0.0 degree reference : ")(princ (rtos ax 2 50))(prompt " degrees")
(prompt "\nAngle of picked points vector to XY plane : ")(princ (rtos axy 2 50))(prompt " degrees")
(setq stringid1 (strcat "\nID pt1 in UCS : " (rtos x1 2 50) "," (rtos y1 2 50) "," (rtos z1 2 50)))
(setq stringid1w (strcat "\nID pt1 in WCS : " (rtos x1w 2 50) "," (rtos y1w 2 50) "," (rtos z1w 2 50)))
(setq stringid1o (strcat "\nID pt1 in OCS : " (rtos x1o 2 50) "," (rtos y1o 2 50) "," (rtos z1o 2 50)))
(setq stringid2 (strcat "\n\nID pt2 in UCS : " (rtos x2 2 50) "," (rtos y2 2 50) "," (rtos z2 2 50)))
(setq stringid2w (strcat "\nID pt2 in WCS : " (rtos x2w 2 50) "," (rtos y2w 2 50) "," (rtos z2w 2 50)))
(setq stringid2o (strcat "\nID pt2 in OCS : " (rtos x2o 2 50) "," (rtos y2o 2 50) "," (rtos z2o 2 50)))
(setq string1 (strcat "\n\nDistance 2D projection in UCS plane : " (rtos ducs 2 50)))
(setq string2 (strcat "\n\nDX in UCS : " (rtos dx 2 50)))
(setq string3 (strcat "\nDY in UCS : " (rtos dy 2 50)))
(setq string4 (strcat "\nDZ in UCS : " (rtos dz 2 50)))
(setq string5 (strcat "\n\nDistance 2D projection in WCS plane : " (rtos dwcs 2 50)))
(setq string6 (strcat "\n\nDX in WCS : " (rtos dxw 2 50)))
(setq string7 (strcat "\nDY in WCS : " (rtos dyw 2 50)))
(setq string8 (strcat "\nDZ in WCS : " (rtos dzw 2 50)))
(setq string9 (strcat "\n\nDistance 2D projection in OCS plane : " (rtos docs 2 50)))
(setq string10 (strcat "\n\nDX in OCS : " (rtos dxo 2 50)))
(setq string11 (strcat "\nDY in OCS : " (rtos dyo 2 50)))
(setq string12 (strcat "\nDZ in OCS : " (rtos dzo 2 50)))
(setq string13 (strcat "\n\nDistance 3D : " (rtos d 2 50)))
(setq string14 (strcat "\n\nAngle around Z axis from X axis as 0.0 degree reference : " (rtos ax 2 50) " degrees"))
(setq string15 (strcat "\nAngle of picked points vector to XY plane : " (rtos axy 2 50) " degrees"))
(setq alertstring (strcat stringid1 stringid1w stringid1o stringid2 stringid2w stringid2o string1 string2 string3 string4 string5 string6 string7 string8 string9 string10 string11 string12 string13 string14 string15))
(alert alertstring)
(princ)
)
(defun c:idd ( / p x y z xw yw zw ocs xo yo zo IDstringUCS string1 string2 string3 DSTstringUCS DSTstringXY DSTstringYZ DSTstringXZ IDstringUCSC IDstringUCSS IDstringWCS string4 string5 string6 DSTstringWCS DSTstringWXY DSTstringWYZ DSTstringWXZ IDstringWCSC IDstringWCSS IDstringOCS string7 string8 string9 DSTstringOCS DSTstringOXY DSTstringOYZ DSTstringOXZ IDstringOCSC IDstringOCSS alertstring )
(setq p (getpoint "\nPick point from which to extract ID data with maximal precision..."))
(setq x (car p) y (cadr p) z (caddr p))
(setq xw (car (trans p 1 0)) yw (cadr (trans p 1 0)) zw (caddr (trans p 1 0)))
(setq ocs (trans '(0.0 0.0 1.0) 1 0 t))
(setq xo (car (trans p 1 ocs)) yo (cadr (trans p 1 ocs)) zo (caddr (trans p 1 ocs)))
(prompt "\n\nID pt in UCS : (")(princ (rtos x 2 50))(prompt " ")(princ (rtos y 2 50))(prompt " ")(princ (rtos z 2 50))(prompt ")")
(prompt "\n\nX in UCS : ")(princ (rtos x 2 50))
(prompt "\nY in UCS : ")(princ (rtos y 2 50))
(prompt "\nZ in UCS : ")(princ (rtos z 2 50))
(prompt "\n\nDistance pt to UCS origin : ")(princ (rtos (distance '(0.0 0.0 0.0) p) 2 50))
(prompt "\nDistance of projection of pt on XY plane of UCS to UCS origin : ")(princ (rtos (sqrt (+ (* x x) (* y y))) 2 50))
(prompt "\nDistance of projection of pt on YZ plane of UCS to UCS origin : ")(princ (rtos (sqrt (+ (* y y) (* z z))) 2 50))
(prompt "\nDistance of projection of pt on XZ plane of UCS to UCS origin : ")(princ (rtos (sqrt (+ (* x x) (* z z))) 2 50))
(prompt "\n\nID pt in UCS - cylindrical coodrinate system : @")(princ (rtos (sqrt (+ (* x x) (* y y))) 2 50))(prompt "<")(princ (rtos (cvunit (atan y x) "radian" "degree") 2 50))(prompt ",")(princ (rtos z 2 50))
(prompt "\nID pt in UCS - spherical coordinate system : @")(princ (rtos (distance '(0.0 0.0 0.0) p) 2 50))(prompt "<")(princ (rtos (cvunit (atan y x) "radian" "degree") 2 50))(prompt "<")(princ (rtos (cvunit (atan z (sqrt (+ (* x x) (* y y)))) "radian" "degree") 2 50))
(prompt "\n\nID pt in WCS : (")(princ (rtos xw 2 50))(prompt " ")(princ (rtos yw 2 50))(prompt " ")(princ (rtos zw 2 50))(prompt ")")
(prompt "\n\nX in WCS : ")(princ (rtos xw 2 50))
(prompt "\nY in WCS : ")(princ (rtos yw 2 50))
(prompt "\nZ in WCS : ")(princ (rtos zw 2 50))
(prompt "\n\nDistance pt to WCS origin : ")(princ (rtos (distance '(0.0 0.0 0.0) (trans p 1 0)) 2 50))
(prompt "\nDistance of projection of pt on XY plane of WCS to WCS origin : ")(princ (rtos (sqrt (+ (* xw xw) (* yw yw))) 2 50))
(prompt "\nDistance of projection of pt on YZ plane of WCS to WCS origin : ")(princ (rtos (sqrt (+ (* yw yw) (* zw zw))) 2 50))
(prompt "\nDistance of projection of pt on XZ plane of WCS to WCS origin : ")(princ (rtos (sqrt (+ (* xw xw) (* zw zw))) 2 50))
(prompt "\n\nID pt in WCS - cylindrical coodrinate system : @")(princ (rtos (sqrt (+ (* xw xw) (* yw yw))) 2 50))(prompt "<")(princ (rtos (cvunit (atan yw xw) "radian" "degree") 2 50))(prompt ",")(princ (rtos zw 2 50))
(prompt "\nID pt in WCS - spherical coordinate system : @")(princ (rtos (distance '(0.0 0.0 0.0) (trans p 1 0)) 2 50))(prompt "<")(princ (rtos (cvunit (atan yw xw) "radian" "degree") 2 50))(prompt "<")(princ (rtos (cvunit (atan zw (sqrt (+ (* xw xw) (* yw yw)))) "radian" "degree") 2 50))
(prompt "\n\nID pt in OCS : (")(princ (rtos xo 2 50))(prompt " ")(princ (rtos yo 2 50))(prompt " ")(princ (rtos zo 2 50))(prompt ")")
(prompt "\n\nX in OCS : ")(princ (rtos xo 2 50))
(prompt "\nY in OCS : ")(princ (rtos yo 2 50))
(prompt "\nZ in OCS : ")(princ (rtos zo 2 50))
(prompt "\n\nDistance pt to OCS origin : ")(princ (rtos (distance '(0.0 0.0 0.0) (trans p 1 ocs)) 2 50))
(prompt "\nDistance of projection of pt on XY plane of OCS to OCS origin : ")(princ (rtos (sqrt (+ (* xo xo) (* yo yo))) 2 50))
(prompt "\nDistance of projection of pt on YZ plane of OCS to OCS origin : ")(princ (rtos (sqrt (+ (* yo yo) (* zo zo))) 2 50))
(prompt "\nDistance of projection of pt on XZ plane of OCS to OCS origin : ")(princ (rtos (sqrt (+ (* xo xo) (* zo zo))) 2 50))
(prompt "\n\nID pt in OCS - cylindrical coodrinate system : @")(princ (rtos (sqrt (+ (* xo xo) (* yo yo))) 2 50))(prompt "<")(princ (rtos (cvunit (atan yo xo) "radian" "degree") 2 50))(prompt ",")(princ (rtos zo 2 50))
(prompt "\nID pt in OCS - spherical coordinate system : @")(princ (rtos (distance '(0.0 0.0 0.0) (trans p 1 ocs)) 2 50))(prompt "<")(princ (rtos (cvunit (atan yo xo) "radian" "degree") 2 50))(prompt "<")(princ (rtos (cvunit (atan zo (sqrt (+ (* xo xo) (* yo yo)))) "radian" "degree") 2 50))
(setq IDstringUCS (strcat "ID pt in UCS : " (rtos x 2 50) "," (rtos y 2 50) "," (rtos z 2 50)))
(setq string1 (strcat "\n\nX in UCS : " (rtos x 2 50)))
(setq string2 (strcat "\nY in UCS : " (rtos y 2 50)))
(setq string3 (strcat "\nZ in UCS : " (rtos z 2 50)))
(setq DSTstringUCS (strcat "\n\nDistance pt to UCS origin : " (rtos (distance '(0.0 0.0 0.0) p) 2 50)))
(setq DSTstringXY (strcat "\nDistance of projection of pt on XY plane of UCS to UCS origin : " (rtos (sqrt (+ (* x x) (* y y))) 2 50)))
(setq DSTstringYZ (strcat "\nDistance of projection of pt on YZ plane of UCS to UCS origin : " (rtos (sqrt (+ (* y y) (* z z))) 2 50)))
(setq DSTstringXZ (strcat "\nDistance of projection of pt on XZ plane of UCS to UCS origin : " (rtos (sqrt (+ (* x x) (* z z))) 2 50)))
(setq IDstringUCSC (strcat "\n\nID pt in UCS - cylindrical coodrinate system : @" (rtos (sqrt (+ (* x x) (* y y))) 2 50) "<" (rtos (cvunit (atan y x) "radian" "degree") 2 50) "," (rtos z 2 50)))
(setq IDstringUCSS (strcat "\nID pt in UCS - spherical coordinate system : @" (rtos (distance '(0.0 0.0 0.0) p) 2 50) "<" (rtos (cvunit (atan y x) "radian" "degree") 2 50) "<" (rtos (cvunit (atan z (sqrt (+ (* x x) (* y y)))) "radian" "degree") 2 50)))
(setq IDstringWCS (strcat "\n\nID pt in WCS : " (rtos xw 2 50) "," (rtos yw 2 50) "," (rtos zw 2 50)))
(setq string4 (strcat "\n\nX in WCS : " (rtos xw 2 50)))
(setq string5 (strcat "\nY in WCS : " (rtos yw 2 50)))
(setq string6 (strcat "\nZ in WCS : " (rtos zw 2 50)))
(setq DSTstringWCS (strcat "\n\nDistance pt to WCS origin : " (rtos (distance '(0.0 0.0 0.0) (trans p 1 0)) 2 50)))
(setq DSTstringWXY (strcat "\nDistance of projection of pt on XY plane of WCS to WCS origin : " (rtos (sqrt (+ (* xw xw) (* yw yw))) 2 50)))
(setq DSTstringWYZ (strcat "\nDistance of projection of pt on YZ plane of WCS to WCS origin : " (rtos (sqrt (+ (* yw yw) (* zw zw))) 2 50)))
(setq DSTstringWXZ (strcat "\nDistance of projection of pt on XZ plane of WCS to WCS origin : " (rtos (sqrt (+ (* xw xw) (* zw zw))) 2 50)))
(setq IDstringWCSC (strcat "\n\nID pt in WCS - cylindrical coodrinate system : @" (rtos (sqrt (+ (* xw xw) (* yw yw))) 2 50) "<" (rtos (cvunit (atan yw xw) "radian" "degree") 2 50) "," (rtos zw 2 50)))
(setq IDstringWCSS (strcat "\nID pt in WCS - spherical coordinate system : @" (rtos (distance '(0.0 0.0 0.0) (trans p 1 0)) 2 50) "<" (rtos (cvunit (atan yw xw) "radian" "degree") 2 50) "<" (rtos (cvunit (atan zw (sqrt (+ (* xw xw) (* yw yw)))) "radian" "degree") 2 50)))
(setq IDstringOCS (strcat "\n\nID pt in OCS : " (rtos xo 2 50) "," (rtos yo 2 50) "," (rtos zo 2 50)))
(setq string7 (strcat "\n\nX in OCS : " (rtos xo 2 50)))
(setq string8 (strcat "\nY in OCS : " (rtos yo 2 50)))
(setq string9 (strcat "\nZ in OCS : " (rtos zo 2 50)))
(setq DSTstringOCS (strcat "\n\nDistance pt to OCS origin : " (rtos (distance '(0.0 0.0 0.0) (trans p 1 ocs)) 2 50)))
(setq DSTstringOXY (strcat "\nDistance of projection of pt on XY plane of OCS to OCS origin : " (rtos (sqrt (+ (* xo xo) (* yo yo))) 2 50)))
(setq DSTstringOYZ (strcat "\nDistance of projection of pt on YZ plane of OCS to OCS origin : " (rtos (sqrt (+ (* yo yo) (* zo zo))) 2 50)))
(setq DSTstringOXZ (strcat "\nDistance of projection of pt on XZ plane of OCS to OCS origin : " (rtos (sqrt (+ (* xo xo) (* zo zo))) 2 50)))
(setq IDstringOCSC (strcat "\n\nID pt in OCS - cylindrical coodrinate system : @" (rtos (sqrt (+ (* xo xo) (* yo yo))) 2 50) "<" (rtos (cvunit (atan yo xo) "radian" "degree") 2 50) "," (rtos zo 2 50)))
(setq IDstringOCSS (strcat "\nID pt in OCS - spherical coordinate system : @" (rtos (distance '(0.0 0.0 0.0) (trans p 1 ocs)) 2 50) "<" (rtos (cvunit (atan yo xo) "radian" "degree") 2 50) "<" (rtos (cvunit (atan zo (sqrt (+ (* xo xo) (* yo yo)))) "radian" "degree") 2 50)))
(setq alertstring (strcat IDstringUCS string1 string2 string3 DSTstringUCS DSTstringXY DSTstringYZ DSTstringXZ IDstringUCSC IDstringUCSS IDstringWCS string4 string5 string6 DSTstringWCS DSTstringWXY DSTstringWYZ DSTstringWXZ IDstringWCSC IDstringWCSS IDstringOCS string7 string8 string9 DSTstringOCS DSTstringOXY DSTstringOYZ DSTstringOXZ IDstringOCSC IDstringOCSS))
(alert alertstring)
(princ)
)
我的老照片，更新显示3d和2d距离。
12
页:
1
[2]