Tharwat 发表于 2022-7-6 00:44:07

谢谢你，这是工作。那么我如何进入矩形呢？也就是说，我想把矩形显示在形状的外面。

kaan27 发表于 2022-7-6 00:44:33

 
不客气。
 
添加到代码中的矩形。

Tharwat 发表于 2022-7-6 00:49:03

再次感谢您的光临。

kaan27 发表于 2022-7-6 00:54:56

 
随时欢迎你。

Tharwat 发表于 2022-7-6 00:56:19

请编辑您的原始帖子，将代码包含在代码标签中。

SLW210 发表于 2022-7-6 01:01:50

（defun dtr（a）（*pi（/a 180.0））（defun gpuser（）（setq sp（getpoint“\n起始路径点：”）（setq ep（getpoint sp“\n起始路径点：”）（setq hwidth（getdist“\n路径的自宽：”sp））（setq trad（getdist“nRadius of tiles：”sp））（setq tspac（getdist“\n在tiles之间放置：“sp”）（setq pangle（angle sp ep））（setq plength（distance sp ep））（setq width（*2 hwidth））（setq angp90（+pangle（dtr 90）））；路径角+90度（setq angm90（-pangle（dtr 90））；路径角度-90度）（defun drawing（）（命令“pline”（setq p（polar sp angm90 hwidth））（setq p（polar p pangle plungth））（setq p（polar p angp90 width））（polar p（+pangle（dtr 180））plungth）“close”）（defun drow（pd offset）（setq pfirst（polar sp pangle pd））（setq pctile（polar pfirst angp90 offset））（setq pltile pctile）（while（<（distance pfirst pltile）（-hwidth trad））（命令“circle”pltile trad）（setq pltile（polar pltile angp90（+tspac trad）））（setq pltile（polar pctile angm90（+tspac trad）））（而（<（distance pfirst pltile）（-hwidth trad））（命令“circle”pltile trad）（setq pltile（polar pltile angm90（+tspac trad（）））（defun drawtiles（）（setq pdist（+tspac））（抵消0.0）（而（

kaan27 发表于 2022-7-6 01:04:09

页: 1 [2]
查看完整版本: 圆形的嵌套模式