设为首页收藏本站
切换到宽版

CAD设计论坛

 找回密码
 立即注册
CAD设计论坛»论坛 › AutoCAD专区 › AutoCAD二维设计（含画法几何） › 达人看看这个LISP哪有问题
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
返回列表 发新帖
查看: 1975|回复: 7

[求助] 达人看看这个LISP哪有问题

[复制链接]
baller
发表于 2008-8-23 11:25 | 显示全部楼层 |阅读模式
;--------------------------- 9 j/ Q% P5 c- l& s* f
　(defun C:Bxh (/ p1 p2 p3 1 ang 1 bx bxh radi txth) ;标序号7 c* E, |+ [( `# @& s( H1 @
　　(setq radi 5) ;圆圈半径7 }3 l- b  l* _  o6 a
　　(setq txth 5) ;字高
  Y3 v/ ^; l( A* u+ |　　(if (not bx) (setq bx 1))
) x& i& s; V& g, q' @8 j% F: |4 ^3 J5 e　　(setq p1 (getpoint "\n请选择起点:")) ;在零件上选一点# S: s' _: T, y7 t
　　(setq p2 (getpoint "\n请选择第二点或回车表示无第二点")) ;标注位置处一点
2 `$ C2 ]: H2 e, x5 U　　(setq bxh (getint (gstr "\n请输入序号" bx))) ;序号数
1 R* u( T( z9 C9 w　　(if bxh (setq bx bxh))
" X( n0 Q, e5 ]' E: [; `) T　　(cond (p2
( r4 @- s; Z# j% _% a　　 (command "layer" "set" 2 " ") ;改到画细线图层! I$ n; V/ H% g8 W! U; |3 x
　　 (setq ang 1 (angle p1 p2))
4 v$ T4 u/ t6 A7 T" f0 x: V9 a9 N　　 (setq p3 (polar p1 ang (-(distance p1 p2) radi))) ;画圆、线9 Z5 M+ O# C0 l# X8 B; V6 `( {) d* f
　　 (command "pline"
  [1 L; {7 S/ B- A% [　　 (polar p1 ang 1 0.25)
4 A. f$ }) X& \　　　"w" 0.5 0,5 "A" "CE"p1"A"359.9"L""W"0 0 p3"")
( h0 g% Y0 D4 v　　 (command"circle"p2 radi)
! D7 V% H3 p2 e* \2 v# d/ e　　 (command "layer" "set" 6 " " ;改到写文字图层, P8 J) J/ g2 C5 D. Y8 w
　　 "text" "J" "M" p2 txth 0 bx) ;写文字
# Q# G' }' F, L0 G! _4 X7 q! L& U( d* [　　)
% ^' H2 ]$ d: B. S5 J　　 ((not p2) ;如果在零件中直接标注
) w- Z1 G2 p& a　　 (command "layer" "set" 2 " ") ;改到画细线图层
+ O% d0 d, I, X/ A% e+ ]" d　　 (Command "circle" p1 radi) ;画圆
: a+ H# |2 v& u, r; l　　 (command "layer" "set" 6 " " ;改到写文字图层- i$ ]: x0 J" i5 b  H/ r7 B  }
　　　"text" "J" "M" p1 txth 0 bx) ;写文字
0 y# j" X) m. ^, b/ \5 T( D' g　　 ), P; b! r9 \3 T8 t7 ^- \
　　)' w% N7 K* n( V$ G% O4 P6 E+ [) ?* d/ a, Z
　　(setq bx (+ bx 1))4 W) ]4 b$ l3 K/ q) `* n
　　(princ)
5 s! T3 Z# Y/ P; K) [. a3 a　)
5 D4 V& U. c" v$ `! [1 i　 ;-----------------------

本帖子中包含更多资源

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

x
论坛操作帮助 | 常用工具软件下载 | 获取社区币方法 | 新手必看帖 | 什么是灌水? | 会员积分等级说明 | 免责声明 | 隐私声明 | 更多帮助…
回复

举报

yrgui
发表于 2008-8-23 14:31 | 显示全部楼层
粗略的看了一下，太困了，没想进去，有空再来给你瞧瞧
论坛操作帮助 | 常用工具软件下载 | 获取社区币方法 | 新手必看帖 | 什么是灌水? | 会员积分等级说明 | 免责声明 | 隐私声明 | 更多帮助…
回复 支持 反对

举报

baller
 楼主| 发表于 2008-8-23 15:37 | 显示全部楼层

回复 #2 yrgui 的帖子

多谢达人光顾，还请清醒后多多指教
论坛操作帮助 | 常用工具软件下载 | 获取社区币方法 | 新手必看帖 | 什么是灌水? | 会员积分等级说明 | 免责声明 | 隐私声明 | 更多帮助…
回复 支持 反对

举报

yrgui
发表于 2008-8-25 08:09 | 显示全部楼层
根据原程序的思路，我改好了：
" F) G' ?/ R. G* z& A# b ;;;该程序用于给图标序号5 a8 F  t) ^" `/ D7 A$ X
;;;两种方式：有引线和无引线
  U/ h0 ]2 R9 O4 d0 `5 |4 j ;;;使用该程序时需确保图中设有细线和文字两个图层" R8 n/ }# |  p; c

8 Y" W6 K4 k9 ]+ f　(defun c:bxh (/ p0 p1 p2 p3 ang bx bxh radi txth)   / \& _* l" K1 v9 G: C3 H; v7 z
    (graphscr)6 F  r: H$ f7 W3 K( E' f
    (setvar "cmdecho" 0)   
0 n! p( T8 F' e: D% M    ;;默认值0 O2 @  w- a3 ]. A- v* G
　　(setq radi 5' a: N7 ^3 P/ Q) I  S: P
　        txth 5! F" ^1 E! `0 _! g
          bx 1
( y" b1 T/ L2 q% S) l　　      p1 (getpoint "\n请选择起点:")
5 F9 N7 ~  ?% ]5 U    )5 w1 V0 N3 B& w, m
    ;;循环标多个
0 K! s# ~' s8 o! n　　(while p1& J. m/ u9 [2 u* ]1 A9 @
      (setq p2 (getpoint p1 "\n请选择第二点或回车表示无第二点")
+ C# P* s9 @+ M! T; c　　        bxh (getint (strcat "\n请输入序号<" (rtos bx) ">: "))% I( ?* _  h, Y6 `
      )
1 L0 G$ u" D6 N, ?- ^& b0 ]/ Z# E      (if bxh (setq bx bxh))
- C9 F9 i) V  p6 v1 }1 {      (if p29 V) W; h! T3 ?
        ;;引出线标注
  D1 G, F( v: o. E  k: E8 z        (progn
7 q3 C. c+ @2 H7 Z　　      (command "layer" "set" "细线" "") ;改到画细线图层
/ Y! l$ E1 d5 f3 f* u/ q: D& p　　      (setq p0 (polar p1 (angle p1 p2) 0.25)6 x$ n7 M1 b! I* S6 D; C  j9 }) u2 h
                p3 (polar p2 (angle p2 p1) radi)
. p8 k0 {2 |. f0 j! D. _          )      + `# B7 |$ S4 h$ e. F4 a
　　      (command "pline" p0 "w" 0.5 0.5 "A" "CE" p1 "A" 359.9 "L" "W" 0 0 p3 "")  ;画引出线
* y( t5 ~3 v% \. H7 ]( {$ R: h0 T　　      (command "circle" p2 radi)  ;画圆2 ?- ?- W3 M5 |, s  B8 ^3 A/ j
　　      (command "layer" "set" "文字" "") ;改到写文字图层2 X+ l: ^6 v& R3 ]- c( c! H
　　      (command "text" "J" "M" p2 txth 0 bx) ;写文字
' F- J0 V# K+ u( Z% Q　　    ): t5 w) }& F( m6 X6 X. c# n5 n
　　    ;;原处直接标注
  n# p2 }# t; r& ~/ Y        (progn8 G8 K9 V- L- R: s4 _
　　      (command "layer" "set" "细线" "") ;改到画细线图层
8 A3 |; O8 r( `3 n5 s( S- ]3 ^　　      (command "circle" p1 radi) ;画圆
) j4 N, K3 B) w4 C　　      (command "layer" "set" "文字" "") ;改到写文字图层" `" u! O8 m1 W
　　　    (command "text" "J" "M" p1 txth 0 bx) ;写文字0 X6 O- Z; ?  \& h; C9 o- G
　　    )
+ r( _/ _$ _, F4 U　　  )
/ O1 x2 w- V2 c, w4 `6 H# h( ^% x      (setq bx (+ bx 1)  ;标号自动增加
$ g8 P3 |- B% b2 W            p1 (getpoint "\n下一处的起点<结束>: ")
1 J$ P5 Z2 S9 \      )
/ e' {! F2 q, |" C; {6 ?5 t9 G% B　　)  ;结束循环, S' H- W+ X# r, ]( P4 C
   
4 U8 n6 Q; h5 R5 ]* p    (setvar "cmdecho" 1): X( |: s( ~8 {, s1 H
　　(princ)& c! ^% L4 y1 u
　)
, L* M' n* I) ?  p

本帖子中包含更多资源

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

x
回复 支持 反对

举报

baller
 楼主| 发表于 2008-8-26 11:10 | 显示全部楼层
原帖由 yrgui 于 2008-8-25 08:09 发表
3 p8 ^, U7 w' k1 l- A0 h根据原程序的思路，我改好了：- z, z0 a4 s7 d
;;;该程序用于给图标序号& O' ]# U" f* j2 {& W/ R% ^
;;;两种方式：有引线和无引线: E  q1 M& z# L! Q
;;;使用该程序时需确保图中设有细线和文字两个图层5 h9 K# s. Y; |% M# R- J4 B5 d/ I3 f

* S/ e) E6 r9 i. L2 Q+ G! w　(defun c:bxh (/ p0 p1 p2 p3 ang bx bxh radi txth)   
' n% B+ R/ a/ P  ...
' }' G! W+ |: q6 a

; ~6 |$ b$ G5 H" A* [& T这个问题如何解决，如图所示，线穿过圆了

本帖子中包含更多资源

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

x
回复 支持 反对

举报

baller
 楼主| 发表于 2008-8-26 11:23 | 显示全部楼层
原帖由 yrgui 于 2008-8-25 08:09 发表 6 i5 c' k1 m: w9 X; V/ O
根据原程序的思路，我改好了：* V$ `  i/ l7 S( G. e! Y
;;;该程序用于给图标序号
6 t: T3 F# T$ e: Y! o ;;;两种方式：有引线和无引线
) g, g, b% F: B1 d- \2 Y ;;;使用该程序时需确保图中设有细线和文字两个图层6 q, r- _3 P6 j) h) y6 g+ q

: l% n+ P/ R3 S7 _9 E　(defun c:bxh (/ p0 p1 p2 p3 ang bx bxh radi txth)   
0 ]( |0 w  V, T. M' Y7 x  ...
5 |/ f6 m7 {% S; U

4 a2 H: t* u1 D7 F+ t' x9 K还有一问？你标注时的橡皮筋是怎么实现的？
回复 支持 反对

举报

yrgui
发表于 2008-8-26 14:06 | 显示全部楼层
----p3 (polar p2 (angle p2 p1) radi)) n, z  q' D8 U4 g) g7 `5 U. q
) & i4 H4 E0 H& j5 w6 A( a) b
　　 (command "pline" p0 "w" 0.5 0.5 "A" "CE" p1 "A" 359.9 "L" "W" 0 0 p3 "") ;画引出线  A( k% e7 ?$ G" U5 i
p3不是圆心啊，我也试过，也出过类似情况，应该不是每个都穿过去吧，我再检查检查: H' Q4 [) Q/ n6 Y6 R
(setq p2 (getpoint p1 "\n请选择第二点或回车表示无第二点")
$ h( D/ A% f" hgetpoint函数后面加点 p1 就会使点选 p2 时出橡皮筋
回复 支持 反对

举报

baller
 楼主| 发表于 2008-8-26 14:24 | 显示全部楼层
原帖由 yrgui 于 2008-8-26 14:06 发表 + W6 P5 m# ^6 s7 R: M3 y- }; a7 t
----p3 (polar p2 (angle p2 p1) radi)
2 g, S# }: r5 X)
# U$ s: R* t' @( K" \/ X　　 (command "pline" p0 "w" 0.5 0.5 "A" "CE" p1 "A" 359.9 "L" "W" 0 0 p3 "") ;画引出线
1 A' Y" K9 G$ u3 E0 ]7 yp3不是圆心啊，我也试过，也出过类似情况，应该不是每个都穿过去吧， ...
& ^- O. U% p( R8 N; g
) ^6 f2 I. a) N! B
" K6 u& `6 B) d4 l5 j7 Z0 s" }
多谢指点，好让人高兴的橡皮筋啊
) _' R2 q; V3 p- ]8 x9 _5 e- W
. g3 F- q  J% K& C1 f" E9 d8 w4 |$ p. Q" |" ~/ w- w7 U7 Q/ K
(setvar "aperture" 1);控制靶框大小4 m/ T/ Z9 E: J% r9 [$ [- h- ^
加上这一句后，“穿心”情况偶有出现，不过，不完美啊
8 l, Z( d5 m6 Q9 G. ^
; ^0 s! ?; J* `6 B) C获取当前系统变量
6 }( r) a# u# P, X  z' r设置系统变量5 u/ [3 _3 K  T9 n& r
恢复系统变量3 ?1 g3 {: {+ G4 Z7 O/ U2 v
如：1 a0 E/ X0 p/ k" z6 m
(setq v1 (getvar "osmode"));获取目标捕捉初始状态，将其赋给变量v1
6 I( a$ f/ ^0 V/ f5 |0 b* v, w: \(setvar "osmode" 0);设置目标捕捉状态为无7 J  b8 g; ^$ A
(setvar "osmode" v1);恢复目标捕捉初始状态5 d7 y1 @3 c- U# P$ Z2 _# K0 s
上面这不知道你用过不，彼此携手共进啊
2 ]4 m1 |& n* V" y) l) K2 R) a) \: N: e% Z" U
/ i; m  y1 J7 D$ B% A  H, D
(while p1 ;以p1是否为空作为条件?
5 U3 U3 D$ s5 a, S6 I8 N; @(if bxh (setq bx bxh));这句压根没看明白 8 X# p3 C& \+ b  ^& S0 D, X
      (if p2 ;以p1是否为空作为条件?4 m0 G, }/ g1 u4 T" a- p- m4 O' _
6 @& y2 h2 s* A# Y
烦请解析下
回复 支持 反对

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-5-3 00:24

CAD设计论坛，为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表