[求助]：有能实现此功能的lsp程序么？

haibinpro · 发表于 2006-7-17 19:17:04

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

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

×

选择两条直线后会做出如图示的小短线。

目的是方便标注（选择角点标注）

注：虽然acadm2006有捕捉虚拟交点的功能，
但由于需要检查图纸，要求做出如图示的图形。

如果没有的话，哪位大虾能帮忙编一下么。

Dream.Fei · 发表于 2006-7-18 10:09:51

你要做的是绿色线吗？它与白线之间有没有间距要求？圆也是要自动生成的？

lijiao · 发表于 2006-7-18 10:55:00

最初由 haibinpro 发布
[B]选择两条直线后会做出如图示的小短线。

目的是方便标注（选择角点标注）

注：虽然acadm2006有捕捉虚拟交点的功能，
但由于需要检查图纸，要求做出如图示的图形。

如果没有的话，哪位大虾能帮忙编一下么。 [/B]

[FONT=courier new]
(defun c:cs_fandaojiao
(/ ss1 ss2 pt110 pt111 pt210 pt211 pt3 pt1 pt2 cmdosmode pt)
(setvar "cmdecho" 0)
(while (and
(princ "\n选择第一条直线:")
(setq ss1 (car (setq pt1 (zntq '((0 . "line"))))))
(princ "\n选择第二条直线:")
(setq ss2 (car (setq pt2 (zntq '((0 . "line"))))))
)
(setq ss1 (entget ss1)
ss2 (entget ss2)
pt1 (osnap (cadr pt1) "nea")
pt2 (osnap (cadr pt2) "nea")
)
(setq pt110 (cdr (assoc 10 ss1))
pt111 (cdr (assoc 11 ss1))
pt210 (cdr (assoc 10 ss2))
pt211 (cdr (assoc 11 ss2))
)
(if (setq pt3 (inters pt110 pt111 pt210 pt211 nil))
(progn
(if (< (distance pt3 pt110) (distance pt3 pt111))
(setq pt pt110)
(setq pt pt111)
)
(if (< (distance pt3 pt) (distance pt3 pt1))
(setq pt1 pt)
(setq pt1 pt3)
)
(if (< (distance pt3 pt210) (distance pt3 pt211))
(setq pt pt210)
(setq pt pt211)
)
(if (< (distance pt3 pt)
(distance pt3 pt2)
)
(setq pt2 pt)
(setq pt2 pt3)
)
(if (not (and
(equal pt1 pt3 0.00001)
(equal pt2 pt3 0.00001)
)
)
(progn
(setq cmdosmode (getvar "osmode"))
(setvar "osmode" 0)
(vl-cmdf "pline" pt1 pt3 pt2 "")
(setvar "osmode" cmdosmode)
' (ent-to-layer "AM_2" (entlast))
)
(princ "\n两直线已经相交，重新选择两条直线:")
)
)
(princ "\n两条直线平行，重新选择两条直线:")
)
)
(setvar "cmdecho" 1)
(princ)
)
[/FONT]

[FONT=courier new] 
(defun c:cs_fandaojiao 
       (/ ss1 ss2 pt110 pt111 pt210 pt211 pt3 pt1 pt2 cmdosmode pt) 
  (setvar "cmdecho" 0) 
  (while (and 
           (princ "\n选择第一条直线:") 
           (setq ss1 (car (setq pt1 (zntq '((0 . "line")))))) 
           (princ "\n选择第二条直线:") 
           (setq ss2 (car (setq pt2 (zntq '((0 . "line")))))) 
         ) 
    (setq ss1 (entget ss1) 
          ss2 (entget ss2) 
          pt1 (osnap (cadr pt1) "nea") 
          pt2 (osnap (cadr pt2) "nea") 
    ) 
    (setq pt110        (cdr (assoc 10 ss1)) 
          pt111        (cdr (assoc 11 ss1)) 
          pt210        (cdr (assoc 10 ss2)) 
          pt211        (cdr (assoc 11 ss2)) 
    ) 
    (if        (setq pt3 (inters pt110 pt111 pt210 pt211 nil)) 
      (progn 
        (if (< (distance pt3 pt110) (distance pt3 pt111)) 
          (setq pt pt110) 
          (setq pt pt111) 
        ) 
        (if (< (distance pt3 pt) (distance pt3 pt1)) 
          (setq pt1 pt) 
          (setq pt1 pt3) 
        ) 
        (if (< (distance pt3 pt210) (distance pt3 pt211)) 
          (setq pt pt210) 
          (setq pt pt211) 
        ) 
        (if (< (distance pt3 pt) 
               (distance pt3 pt2) 
            ) 
          (setq pt2 pt) 
          (setq pt2 pt3) 
        ) 
        (if (not (and 
                   (equal pt1 pt3 0.00001) 
                   (equal pt2 pt3 0.00001) 
                 ) 
            ) 
          (progn 
            (setq cmdosmode (getvar "osmode")) 
            (setvar "osmode" 0) 
            (vl-cmdf "pline" pt1 pt3 pt2 "") 
            (setvar "osmode" cmdosmode) 
        '    (ent-to-layer "AM_2" (entlast)) 
          ) 
          (princ "\n两直线已经相交，重新选择两条直线:") 
        ) 
      ) 
      (princ "\n两条直线平行，重新选择两条直线:") 
    ) 
  ) 
  (setvar "cmdecho" 1) 
  (princ) 
) 
  [/FONT]

haibinpro · 发表于 2006-7-18 22:48:43

Dream.Fei

是只要绿色的线，线段长度是1
圆只是作为辅助示意，实际图纸并不需要。

lijiao

加载后报错：
信息如下：
选择第一条直线:; 错误: no function definition: ZNTQ

将
(defun c:cs_fandaojiao
   (/ ss1 ss2 pt110 pt111 pt210 pt211 pt3 pt1 pt2 cmdosmode pt)
  (setvar "cmdecho" 0)
加载后输入指令：cs_fandaojiao
和将
(defun c:cs_fandaojiao
   (/ ss1 ss2 pt110 pt111 pt210 pt211 pt3 pt1 pt2 cmdosmode pt)
  (setvar "cmdecho" 0)
修改为
(defun c:fc(/ ss1 ss2 pt110 pt111 pt210 pt211 pt3 pt1 pt2 cmdosmode pt)
  (setvar "cmdecho" 0)
输入指令：fc
得到的结果均如上：选择第一条直线:; 错误: no function definition: ZNTQ
能否帮忙改一下。

注：程序可以加载成功
命令: _appload 已成功加载 fc.lsp。

bobby_yang · 发表于 2006-7-19 11:58:57

这个程序应该设问题，我现在一直在用

haibinpro · 发表于 2006-7-19 14:03:00

谢谢，测试可用，
命令执行结果应该是线段末端和圆弧端点距离为一定值。

dwg001 · 发表于 2006-7-21 13:09:09

bobby_yang 楼主的东东测试效果不错，(c:intent)运用很好！

bobby_yang · 发表于 2006-7-23 12:34:25

haibinpro

你自已改一下吧。

lijiao · 发表于 2006-7-24 09:31:38

最初由 haibinpro 发布
[B]
加载后报错：
信息如下：
选择第一条直线:; 错误: no function definition: ZNTQ
... [/B]

ZNTQ是一个函数，你在这个版块上找一下，是我发表的。

haibinpro · 发表于 2006-7-24 12:17:27

to lijiao
ZNTQ是一个函数，你在这个版块上找一下，是我发表的。

已找到，加载，运行后相当于导r＝0的r角

昨天去书店买lsp的书，没买到，还要订，
以前学校学的都差不多忘光了，毕业时又没带那本书，想查些资料都不可以。

lijiao · 发表于 2006-7-24 13:48:27

不用买书，直接看ACAD的帮助即可

haibinpro · 发表于 2006-7-24 21:33:35

我看看，都忘了cad是有帮助的。
我买书是希望编一些方便自己以后工作使用的lsp程序，因为以前有编过些简单的lsp程序，有一定了解，大致上有编程基础和几何基础编写一些lsp不成问题，只可惜太久没接触，手头又没资料，恰巧隔壁推荐些书，就想去买本看看。

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

[求助] [求助]：有能实现此功能的lsp程序么？

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

相关帖子

Re: [求助]：有能实现此功能的lsp程序么？