自动绘，与原捕捉点求解决

hncjddd · 发表于 2019-4-19 17:02:51

本帖最后由 hncjddd 于 2019-5-6 10:55 编辑

(defun c:ZK()
      (setvar "osmode" 33)
      (setq p1 (getpoint "\n点选展宽后交点A<回车退出>:"))
      (setq p2 (getpoint "\n道路方向点B:"))
      (setq qj (getint "\n输入切角长度C:"))
      (setq ZKCD (getint "\n输入展宽长度D:"))
      (setq ZKD (+ qj ZKCD))
      (setq wzjd (angtos (angle p1 p2) 1 4)
                  ang (angle (list (cadr p1) (car p1))
                              (list (cadr p2) (car p2))
                        )
                  zfc (angtos ang 1 4)
               )
      (SETQ A1 (- 1.570796 ANG))
      (SETQ FX1 (- a1 0.165149))
      (SETQ FX2 (+ a1 0.165149))
      (setq zk1 (polar p1 a1 qj))
      (setq zk2 (polar p1 a1 ZKD))
      (setq zk3 (polar zk2 fx1 30.4138))
      (setq zk4 (polar zk2 fx2 30.4138))
(setq jd1 (rtos A1 2 3))
(setq jd2 (rtos fx1 2 3))
(setq jd3 (rtos ang 2 3))
(setvar "osmode" 0)
(command "pline" zk1 zk2 zk3  "")
(command "pline" zk1 zk2 zk4  "")
)

hncjddd · 发表于 2019-4-19 20:47:55

求各位测绘界大神带我。。。

gzxl · 发表于 2019-4-20 00:26:25

上一个贴是人才，这一个帖更是人才，0.01毫米。
你已经登峰造极了，估计是你要带别人咯

1291500406 · 发表于 2019-4-20 07:43:33

本帖最后由 1291500406 于 2019-4-20 08:09 编辑

上一个主题求解决还搞付费主题，人才中的极品

hncjddd · 发表于 2019-4-21 12:53:56

gzxl 发表于 2019-4-20 00:26
上一个贴是人才，这一个帖更是人才，0.01毫米。
你已经登峰造极了，估计是你要带别人咯

做宗地图，用地图用的。。精度很高啊。。。

wkq004 · 发表于 2019-4-23 01:40:47

运行了一下是个漏了的V,不知道是做什么用的.

wkq004 · 发表于 2019-4-23 01:42:01

宗地图...怎么个用法?

hncjddd · 发表于 2019-4-23 12:39:39

wkq004 发表于 2019-4-23 01:42
宗地图...怎么个用法?

漏了v会怎么样？老哥。

wkq004 · 发表于 2019-4-23 14:16:28

把你运行的结果,截屏看看,想要达到咋样的逾期效果

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

自动绘，与原捕捉点求解决

本帖子中包含更多资源

相关帖子