高手指点参数化绘图问题，快答辩了，小弟急啊！

e19000

高手指点参数化绘图问题，快答辩了，小弟急啊！

1.我画的图的径像问题，总有几个地方径像不了，

2.另外不会标注，请大虾们帮我把这个图 标注一下 ，

  真是万分急啊，小弟先谢过了！

备注：需要输入的接触器安装面中心的位置是（@0，0）

zml84

对于点位计算，还是不大简练，作为设计，应当将点位图绘制出来，以便更好讨论。

---

;;定义本程序并声明变量
(defun
		C:TT
		()
    (setq
		SS
		(ssadd))
    (setq
		CP
		'(0
		0))
    (setq
		PT1
		260)
    (setq
		PT2
		245)
    (setq
		PT5
		234)
    (setq
		PT6
		220)
    (setq
		PT9
		210)
    (setq
		PT10
		53)
    (setq
		PT11
		55)
    (setq
		CP0
		(list
		0
		0))

    (setq
		OS
		(getvar
		"osmode"))
    (setvar
		"osmode"
		0)
    ;;为六个螺钉（右左中的顺序）的中心赋值
    (setq
		P1
		(list
		(+
		(car
		CP)
		PT11)
		(+
		(cadr
		CP)
		(/
		PT5
		2)))
   P2
		(list
		(-
		(car
		CP)
		PT10)
		(+
		(cadr
		CP)
		(/
		PT5
		2)))
   P3
		(list
		(car
		CP)
		(+
		(cadr
		CP)
		(/
		PT5
		2)))
    )
    (command
		"_.layer"
		"m"
		0
		"on"
		""
		"")
    ;;绘制外长方形
    (command
 "_.rectang"
 (list
		(-
		(car
		CP)
		(/
		PT2
		2))
		(-
		(cadr
		CP)
		(/
		PT1
		2)))
 (list
		(+
		(car
		CP)
		(/
		PT2
		2))
		(+
		(cadr
		CP)
		(/
		PT1
		2)))
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    ;;绘制螺钉内圆（右左中的顺序）
    (command
		"_.circle"
		P1
		"D"
		"20")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.circle"
		P2
		"D"
		"20")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.circle"
		P3
		"D"
		"20")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制螺钉外六边形（右左中的顺序）
    (command
		"_.polygon"
		6
		P1
		"c"
		"10")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.polygon"
		6
		P2
		"c"
		"10")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.polygon"
		6
		P3
		"c"
		"10")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制两个边缘孔
    (command
 "_.circle"
 (list
		(-
		(car
		CP)
		(/
		PT9
		2))
		(+
		(cadr
		CP)
		(/
		PT6
		2)))
 "D"
 "13"
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
 "_.circle"
 (list
		(+
		(car
		CP)
		(/
		PT9
		2))
		(+
		(cadr
		CP)
		(/
		PT6
		2)))
 "D"
 "13"
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制上方1横向的直线
    (command
		"_.line"
      (list
		(-
		(car
		CP)
		(/
		PT2
		2))
     (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44))
      )
      (list
		(+
		(car
		CP)
		(/
		PT2
		2))
     (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44))
      )
      ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制上方2横向的直线
    (command
 "_.line"
 (list
		(+
		(-
		(car
		CP)
		(/
		PT2
		2))
		35)
		(+
		(cadr
		CP)
		40))
 (list
		(-
		(+
		(car
		CP)
		(/
		PT2
		2))
		35)
		(+
		(cadr
		CP)
		40))
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制左边垂直线
    (command
		"_.line"
      (list
		(-
		(car
		CP)
		(-
		(/
		PT2
		2)
		35))
     (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44))
      )
      (list
		(-
		(car
		CP)
		(-
		(/
		PT2
		2)
		35))
     (-
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44))
      )
      ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@0,10"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制右上方螺钉两边的直线（最右端1）
    (command
 "_.line"
 (list
		(+
		(+
		(car
		CP)
		PT11)
		18)
		(+
		(cadr
		CP)
		(/
		PT1
		2)))
 (list
		(+
		(+
		(car
		CP)
		PT11)
		18)
       (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44))
 )
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;（从右到左2）
    (command
 "_.line"
 (list
		(-
		(+
		(car
		CP)
		PT11)
		18)
		(+
		(cadr
		CP)
		(/
		PT1
		2)))
 (list
		(-
		(+
		(car
		CP)
		PT11)
		18)
       (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44))
 )
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;（从右到左3）
    (command
 "_.line"
 (list
		(+
		(car
		CP)
		18)
		(+
		(cadr
		CP)
		(/
		PT1
		2)))
 (list
		(+
		(car
		CP)
		18)
		(+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44)))
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;（从右到左4）
    (command
 "_.line"
 (list
		(-
		(car
		CP)
		18)
		(+
		(cadr
		CP)
		(/
		PT1
		2)))
 (list
		(-
		(car
		CP)
		18)
		(+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44)))
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;（从右到左5）   
    (command
 "_.line"
 (list
		(+
		(-
		(car
		CP)
		PT10)
		18)
		(+
		(cadr
		CP)
		(/
		PT1
		2)))
 (list
		(+
		(-
		(car
		CP)
		PT10)
		18)
       (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44))
 )
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;（从右到左6）     
    (command
 "_.line"
 (list
		(-
		(-
		(car
		CP)
		PT10)
		18)
		(+
		(cadr
		CP)
		(/
		PT1
		2)))
 (list
		(-
		(-
		(car
		CP)
		PT10)
		18)
       (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		44))
 )
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制左上长方形
    (command
		"_.rectang"
      (list
		(+
		(-
		(car
		CP)
		(/
		PT2
		2))
		8)
		(+
		(cadr
		CP)
		17))
      (list
		(-
		(car
		CP)
		(-
		(/
		PT2
		2)
		27))
     (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		55))
      )
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制右上长方形
    (command
		"_.rectang"
      (list
		(-
		(+
		(car
		CP)
		(/
		PT2
		2))
		8)
		(+
		(cadr
		CP)
		17))
      (list
		(-
		(+
		(car
		CP)
		(/
		PT2
		2))
		27)
     (+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		55))
      )
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制中间两个孔（左内）
    (command
		"_.circle"
      (list
		(-
		(+
		(car
		CP)
		(/
		PT9
		2))
		70)
		(cadr
		CP))
      "D"
      "26"
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@0,10"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;（左外）
    (command
		"_.circle"
      (list
		(-
		(+
		(car
		CP)
		(/
		PT9
		2))
		70)
		(cadr
		CP))
      "D"
      "30"
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@0,10"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))

    ;;绘制中心线，每绘制一条就移动到用户指定位置
    (command
		"_.layer"
		"m"
		1
		"on"
		""
		"")

    (command
		"_.line"
      (list
		(-
		(car
		CP)
		(/
		PT2
		2)
		3)
		(cadr
		CP))
      (list
		(+
		(car
		CP)
		(/
		PT2
		2)
		3)
		(cadr
		CP))
      ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)

    (command
		"_.line"
      (list
		(car
		CP)
		(-
		(cadr
		CP)
		(/
		PT1
		2)
		3))
      (list
		(car
		CP)
		(+
		(cadr
		CP)
		(/
		PT1
		2)
		3))
      ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    ;;绘制中间两个孔竖直方向中心线
    (command
 "_.line"
 (list
		(-
		(+
		(car
		CP)
		(/
		PT9
		2))
		70)
		(+
		(cadr
		CP)
		18))
 (list
		(-
		(+
		(car
		CP)
		(/
		PT9
		2))
		70)
		(-
		(cadr
		CP)
		18))
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@0,10"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制上方两个边缘孔水平方向中心线（左）
    (command
 "_.line"
 (list
		(-
		(car
		CP)
		(/
		PT9
		2)
		10)
		(+
		(cadr
		CP)
		(/
		PT6
		2)))
 (list
		(+
		(-
		(car
		CP)
		(/
		PT9
		2))
		10)
       (+
		(cadr
		CP)
		(/
		PT6
		2))
 )
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    ;;绘制上方两个边缘孔水平方向中心线（右）
    (command
 "_.line"
 (list
		(+
		(car
		CP)
		(/
		PT9
		2)
		10)
		(+
		(cadr
		CP)
		(/
		PT6
		2)))
 (list
		(-
		(+
		(car
		CP)
		(/
		PT9
		2))
		10)
       (+
		(cadr
		CP)
		(/
		PT6
		2))
 )
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    ;;绘制上方两个边缘孔竖直方向中心线（左）
    (command
 "_.line"
 (list
		(-
		(car
		CP)
		(/
		PT9
		2))
		(+
		(cadr
		CP)
		(/
		PT6
		2)
		10))
 (list
		(-
		(car
		CP)
		(/
		PT9
		2))
       (-
		(+
		(cadr
		CP)
		(/
		PT6
		2))
		10)
 )
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    ;;绘制上方两个边缘孔竖直方向中心线（右）
    (command
 "_.line"
 (list
		(+
		(car
		CP)
		(/
		PT9
		2))
		(+
		(cadr
		CP)
		(/
		PT6
		2)
		10))
 (list
		(+
		(car
		CP)
		(/
		PT9
		2))
       (-
		(+
		(cadr
		CP)
		(/
		PT6
		2))
		10)
 )
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    ;;绘制上方螺钉孔中心线（水平方向）
    (command
		"_.line"
      (list
		(-
		(car
		CP)
		PT10
		15)
		(+
		(cadr
		CP)
		(/
		PT5
		2)))
      (list
		(+
		(car
		CP)
		PT11
		15)
		(+
		(cadr
		CP)
		(/
		PT5
		2)))
      ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制上方螺钉孔中心线竖直方向（左1）
    (command
 "_.line"
 (list
		(-
		(car
		CP)
		PT10)
		(+
		(cadr
		CP)
		(/
		PT1
		2)
		3))
 (list
		(-
		(car
		CP)
		PT10)
		(+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		47)))
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    ;;绘制上方螺钉孔中心线竖直方向（右1）
    (command
 "_.line"
 (list
		(+
		(car
		CP)
		PT11)
		(+
		(cadr
		CP)
		(/
		PT1
		2)
		3))
 (list
		(+
		(car
		CP)
		PT11)
		(+
		(cadr
		CP)
		(-
		(/
		PT1
		2)
		47)))
 ""
    )
    (setq
		SS
		(ssadd
		(entlast)
		SS))
    (command
		"_.move"
		(entlast)
		""
		CP0
		CP)
    (command
		"_.mirror"
		(entlast)
		""
		CP
		"@10,0"
		"")
    (setq
		SS
		(ssadd
		(entlast)
		SS))


    ;;
    (setvar
		"osmode"
		OS)
    (command
		"_.move"
		SS
		""
		'(0
		0)
		PAUSE)
    (princ)
)

e19000

狂谢楼上的，程序调试成功了，

可是我标注不会，能不能帮忙给我标注一下啊 ！

谢谢！

下面这个文件红色的标注是需要标注的

zml84

楼主在1楼的代码太乱，建议先按照点位编号，依次计算各点坐标，然后再绘制。
这样的代码不要说是别人，过一段时间后，就是自己也不见得能够读懂。

ljpnb

仔细看了一下1楼的代码,感觉思路不够清晰,很多操作是重复的,比如这个图可以将上面一半绘制好,直接一起镜向到下面,这样可以省好几步重复操作

e19000

谢谢几位老兄了，我回去再好好改一下！