[求助]：求UCS方面的lsp程序

njshf · 发表于 2005-3-4 18:46:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求UCS方面的lsp程序
两相交的直线，求圆点位于交点、Y轴垂直于两条直线、Z轴为两条直线之一。建立新的坐标系。

aidraft · 发表于 2005-3-4 20:55:43

(defun C:test(/ el1 el2 pt11 pt12 pt21 pt22 intpt)
  (setq el1 (entget (car (entsel "\nFirst Line: ")))
el2 (entget (car (entsel "\nSecond Line: ")))
      pt11 (cdr (assoc 10 el1))
      pt12 (cdr (assoc 11 el1))
      pt21 (cdr (assoc 10 el2))
      pt22 (cdr (assoc 11 el2))
      intPt (inters pt11 pt12 pt21 pt22)
  )
  (command "_ucs" "w")
  (command "_ucs" "n" "za" intpt pt11)
)

狂刀 · 发表于 2005-3-5 01:16:27

楼上的对三维的有效么？

aidraft · 发表于 2005-3-5 06:23:36

两直线必须共面相交

njshf · 发表于 2005-3-5 10:49:08

两直线共面相交，2楼没有定义X、Y轴？

aidraft · 发表于 2005-3-5 21:29:43

;;三维的情况应该这样
(defun C:test (/ el1 el2 pt11 pt12 pt21 pt22 intpt)
  (command "_ucs" "w")
  (setq el1 (entget (car (entsel "\nFirst Line: ")))
el2 (entget (car (entsel "\nSecond Line: ")))
pt11  (cdr (assoc 10 el1))
pt12  (cdr (assoc 11 el1))
pt21  (cdr (assoc 10 el2))
pt22  (cdr (assoc 11 el2))
intPt (inters pt11 pt12 pt21 pt22)
)
  (command "_ucs" "n" "3" intpt pt11 pt21)
  (command "_ucs" "n" "Y" "")
  (command "_ucs" "n" "Z" "")
  )

njshf · 发表于 2005-3-5 22:20:02

两共面相交的直线，求圆点位于交点、Y轴垂直于两条直线的平面、Z轴为两条直线之一。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：求UCS方面的lsp程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子